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IDENTIFICATION 


PRODUCT CODE: AC=F 238C=MC 

PRODUCT NAME : CVKDACO PDT11/150 SYSTEM EXERCISER 
PRODUCT DATE: APRIL 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT 10 CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE Ok RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1978, 1979 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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GENERAL PROGRAM INFORMATION. 


VERSION *'C’’ DIFFERS FROM PREVIOUS VERSION BECAUSE VERSION "'C’’: 
A. HAS ADDITIONAL FLOPPY ERROR CODES TO AID PRODUCTION. 
B. SUPPORTS THE “EIS-FIS*’ INSTRUCTION SET OPTION. 
C. ENHANCED MEMORY TESTING. 


PROGRAM PURPOSE (ABSTRACT). 


THE PDT=11/150 SYSTEM EXERCISER TESTS THE PROCESSORS ABILITY 
TO OPERATE ALL ITS PERIPHERALS IN INTERRUPT MODE AT THE SAME TIME 
WITH EMPHASIS ON THE DISK SUBSYSTEMS. 


1T SHOULD BE NOTED THAT JT 1S NOT A DIAGNOSTIC OF THE PERIPHERALS 
BUT A SERIES OF SYSTEM INTERACTION TESTS. 


THE PROGRAM IS DEFAULTED TO EXERCISE THE CLUSTER TERMINALS & THE 
COMM PORT IN INTERNAL LOOPBACK (MAINT) MODE 

THE DEFAULT CAN BE CHANGED TO EXERCISE ANY OF THE CLUSTER TERMINALS 
AND/OR THE COMM PORT IN EXTERNAL LOOPBACK. 

SEE PROGRAM OPTIONS SEC. 2.4. 


TESTING OF THE ACTUAL CLUSTER TERMINALS OR COMM DEVICE 1S NOT PERFORMED. 
THESE DEVICES CAN ONLY BE TESTED EITHER IN EXT. OR INT. LOOPBACK. 


THE PRINTER LOGIC WILL BE EXERCISED IF SIZING DETERMINES IT TO BE PRESENT 
OR IF DATA TERM RDY IS ASSERTED ON ITS CONNECTOR. 


THE “EIS-FIS' LOGIC WILL BE EXERCISED IF SIZING DETERMINES IT TO BE PRESENT. 
THE CONSOLE TERMINAL IS NOT TESTED. | 
AFTER THE MEMORY AND EIS-FIS (IF PRESENT) HAVE BEEN TESTED & ALL THE PERIPHERALS ARE 
BEING EXERCISED & INTERRUPTING AT RANDOM, THE DISK SUBSYSTEM TESTS WILL BEGIN. 
SEE TEST SUMMARY SEC. 7.0. 
NOTE: IF RUNNING UNDER APT, THE SYNC COMM LOGIC WIL! BE TESTED ONLY ON 

THE 1°ST PASS. THIS 1S SO APT "BREAKS" SO NOT CAUSE FALSE SYNC COMM ERRORS. 


THE PROGRAM CONTAINS A UTILITY WHICH CAN COPY THE SYSTEM EXERCISER DISK 
FROM DXO ONTO A SCRATCH DISK IN DX. 

THIS ENABLES THE OPERATOR TO CREATE BACKUP COPIES OF THE EXERCISER DISK. 
SEE SECTION 2.8. 


THE PROGRAM ALSO CONTAINS A COMPATABILITY TESTING OPTION, 
SEE SEC. 2,7. 
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1.2 SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 


PDT=11/150 SYSTEM 

8K MEMORY - MINIMUM 

CONSOLE TERMINAL 

EXTERNAL LOOPBACK CONNECTORS (OPTIONAL) FOR COMM & CLUSTER TERMINAL PORTS. 
(SEE PROGRAM OPTIONS SEC. 2.4) 

vT=100 CONSOLE MUST BE SETUP FOR JUMP SCROLL. 


SOFTWARE REQUIREMENTS: 


THIS EXERCISER IS DESIGNED TO RUN IN ANY OF THE FOLLOWING WAYS: 


STAND ALONE 

wiTH APT MONITOR (INCL. SCRIPT MODE) 
WITH RT=-11 MONITOR 

WITH DIAGNOSTIC SUPERVISOR (NON SCRIPT MODE) 


AN XXDP DRIVER IS NOT AVAILABLE FOR THE PDT-11/150 


AT RELEASE TIME OF CVKDAC. 
1. E. XXDP DOES NOT PRESENTLY SUPPORT THE PDT-11/150. 


1.3 RELATED DOCUMENTS AND STANDARDS. 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
APT MD-11-DZZ7MA 
SY SMAC MD-11-C2QAC 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 
THIS EXERCISER ASSUMES THAT THE POWER UP SELF TEST RUNS ERROR FREE. 


1.5 ASSUMPTIONS 


THIS EXERCISER ASSUMES THAT THE OPERATOR HAS MODIFIED THE DEVICE MAP 
(SDEVM) AT LOC. 1246 IF THE DEFAULTS DO NOT AGREE WITH THE ACTUAL 
SYSTEM CONFIGURATION. SEE PROGRAM OPTIONS SEC. 2.4 

THE PROGRAM ALSO ASSUMES THE SOFTWARE SwITCH REGISiER 1s 

PROPERLY SET UP (SWREG) AT LOC. 176. SEE SEC. 2.3. 


1.6 RUNNING SYSTEMS PROGRAMS 


UNLESS THE SYSTEMS PROGRAMS ARE KNOWN TO INITIALIZE THE BAUD 

RATES OF EACH DEVICE THRU THE PARAMETER REGISTER 

THE OPERATOR SHOULD POWER DOWN & UP AGAIN WHEN FINISHED A route THIS EXERCISER. 
THIS 1S TO RESTORE THE PDT=11/150 TO 11S DEFAULT BAUD RATES 

OTHERWISE, THE DEVICES WILL ATTEMPT TO RUN AT WHATEVER BAUD "RATES 


CVKDAC 
CVEDAC P11 


2.0 
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WERE LAST USED BY THIS EMERCISER. 


OPERATING INSTRUCTIONS. 
LOADING AND STARTING PROCEDURES. 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED PAPER TAPE. 
THE PROGRAM WILL AUTO=START AFTER LOADING. 


THE SYSTEM EXERCISER PROGRAM WILL AUTO=START AFTER BOOTING. 


EXAMPLE OF STARTUP ASSUMING THAT: 


24K WCRDS OF MEMORY 

EIS-F1S OPTION NOT PRESENT 
PRINTER NOT PRESENT 

CLUSTER TERM #2 NOT TO BE TESTED 
COMM PORT EXT. LOOPBACK 

CLUSTER TERM 1 & 3 INT. LOOPBACK. 


(STARTUP TYPEOUTS) 
CVKDAC = PDT=11/150 SYSTEM EXERCISER 


SwR = 000000 NEW = 110000 <CR> (HALT ON ERR, ENABLE PERFORMANCE REPORTS) 


DEvM = 000017 NEW = 20005 <CR> (CHANGE THE DEFAULTS SEE SEC. 


24K MEMORY PRESENT 

EIS-FIS OPTION NOT PRESENT 
TERM #2 TESTING DROPPED 
PRINTER NOT PRESENT 


INSERT SCRATCH DISKS, TYPE "P* FOR NORMAL TESTING 
*240G" FOR NORMAL RESTARTS 

*250G" TO COPY SYS EXERCISER DISK 

*260G' FOR COMPATABLITIY PASS 1: WRITE 

*270G" FOR PASS 2: READ 


1.5) 


(PROGRAM HALTS & WAITS FOR 'P' & CONTINUES....ABOVE NOTE & HALT OMITTED UNDER APT) 


THE PROGRAM WILL BEGIN ACTUAL TESTING AT THIS POINT. (SEE SUMMARY OF TESTS SEC. 


DURING THE TESTS, THE PROGRAM WILL PRINT PROGRESS REPORTS (SEE SEC. 4.1) IF 
BIT 12 1S SET IN THE SWREG (SEE SEC 2.3). 
END OF PASS & TOTAL ERROR COUNT 1S PRINTED AT THE CONCLUSION OF TESTING. 


7.0) 


THE PROGRAM JUMPS TO THE BEGINNING & THE ABOVE SEQUENCE IS REPEATED UNTIL HALTED. 


SEQ 0005 
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SPECIAL ENVIRONMENTS. 


THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UNDER APT, RT=11 MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 


OPERATIONAL SWITCH SETTINGS 


THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF 1:2 SOFTWARE 
SWITCH REGISTER (SWREG AT LOC. 176) FROM THE CONSOLE. THIS CAN BE 
ACCOMPLISHED BY DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE CONSOLE TO enren 
I ii Loc. 176 AT SELECTED POINTS WITHIN TH 


2) THE MACHINE WILL THEN TYPE:* SWR=XXXXXX NEW=" (XXXXKKX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER. 


3) AFTER THE *NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE CONSOLE: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED By 
A <CR>. (ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED, AND IF MORE THAN 6 
DIGITS ARE TYPED THE LAST 6 WILL BE USED. IF A <CR> 
1S THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


6) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


C) IF THE INPUT CHARACTER 1S NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A QUESTION MARK (7?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 
THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT). 

4) THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 


SOFTWARE SWITCH REGISTER OPTIONS (SWREG) 


100000 


ad 


HALT ON ERROR 

INHIBIT ERROR TYPEQUTS 
ENABLE PERFORMANCE REPORTS 
BELL ON ERROR 


CVKDAC 
CVKDAC.P11 


2.4 
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SEQ 0007 


PROGRAM OPTIONS. 


A DEVICE MAP (SDEVM) AT LOCATION 1246 (ENTERED BY A CONTROL-G FOLLOWED BY CONTROL-C) 
1S_ EXAMINED BY THE PROGRAM TO DETERMINE THE METHOD OF TESTING 
THE CLUSTER TERMINALS & THE COMM PORT. 


THE DEFAULT VALUE = 000017 (INTERNAL LOOPBACK FOR COMM PORT & CLUSTER TERMINALS) 
1T CAN BE CHANGED TO DG THE FOLLOWING: 


SDEVM (LOC 1246) ENTERED BY *G*C 


BIT 15 SET= 100000= DROP PRINTER TESTS 
14 SET= 40000= DROP CLUSTER TERM #3 TESTS 
13 SET= 20000= #2 
12 SET= 10000= #| 
11 SET= 4000= DROP ASYNC COMM TESTS 
10 SET= 2000= DROP SYNC COMM TESTS 
9 SET= 1000= DROP DRIVE 1 TESTS 
8 SET= 400= DROP DRIVE O TESTS 
7 SET= 200= DROP CLOCK TESTS 
6 SET= 100= DROP EIS-FIS TESTS 
BIT 3 SET= 10= INT. LOOPBACK (MAINT MODE) FOR COMM PORT (DEFAULT) 
2 SET= 4= INT. LOOPBACK (MAINT MODE) FOR TERM #1 (DEFAULT) 
1 SET= 2= INT. LOOPBACK (MAINT MODE) FOR #2 (DEFAULT) 
0 SET= l= INT. LOOPBACK (MAINT MODE) FOR a3 (DEFAULT) 
BIT 3 CLR= EXT. LOOPBACK FOR COMM PORT. 
BIT 2 CLR= EXT. LOOPBACK FOR TERM #1, 
BIT 1 CLR= EXT. LOOPBACK FOR TERM #2. 
BIT O CLR= EXT. LOOPBACK FOR TERM #3. 
NOTES: 


1. THE CONSOLE 1S NOT TESTED. 
2. BITS 15-6 SETTINGS WILL OVERRIDE BIT 3-0 SETTINGS. 


3. THE PRINTER LOGIC WILL BE TESTED IF BIT 15 = 0 & THE DATA TERM READY 
1S ASSERTED ON THE CONNECTOR. (A PHYSICAL PRINTER 1S NOT REQ'D) 


4. A v1=50,52 MAY BE USED INSTEAD OF A PRINTER FOR A VISUAL CHECK, 


CvKDAC 
CVKDAC.P11 
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2.6 


2.7 


2.8 
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EXECUTION TIMES. 


ASSUMING ALL DEVICES & 2 DISK SUBSYSTEMS PRESENT: 
1*ST PASS: 


25 = 30 SEC TO STARTUP CLOCK, PRINTER, COMM DEVICE & CLUSTER TERMINALS. 
5 MIN TO WRITE, READ & DATA COMPARE ON TRACKS 0-4 40-44, 72-76(10) ON BOTH DRIVES. 
5 = 60 SEC TO DO 10 RANDOM SEEKS ON EACH DISK BE Tween 1"ST 5 TRACKS. 


SUBSEQUENT PASSES: 


30 SEC TO STARTUP CLOCK, PRINTER, COMM DEVICE & CLUSTER TERMINALS. 
20 MIN TO WRITE, READ & DATA COMPARE ALL TRACKS ON BOTH DISKS. 
5 MIN TO DO 500 RANDOM SEEKS ON EACH DISK BETWEEN ALL TRACKS. 


POWER FAIL 


THERE 1S NO POWER FAIL AUTO-RESTART CAPABILITY IN THE PDT=-11. 


COMPATABILTIY TESTING 


PASS 1: ENTERED FROM A °260G'. 
WILL WRITE ALL TRACKS & SECTORS ON SELECTED DRivES 
& HALT AFTER AN OPERATOR PROMPT. TYPING 'P* WILL BEGIN PASS 2. 


PASS 2: ENTERED BY A ‘P* AFTER THE ABOVE HALT, OR A ‘2706 
WILL PERFORM SEQUENTIAL & RANDOM READS ONLY, ON tue SELECTED DRIVES. 


COPY UTILITY 


TO PROVIDE BACKUP DISKS, A UTILITY IS PROVIDED IN THE PROGRAM TO COPY 
THE SYSTEM EXERCISER DISK FROM DXO TO DX1 IN THE FOLLOWING WAY: 


1, BOOT THE EXERCISER NORMALLY FROM DXO. 
2. ALLOW THE PROGRAM TO HALT AFTER THE WARNING it tts TO USE SCRATCH DiSKS. 
3. AT THIS POINT, DO A ‘250G° TO ENTER THE COPY UTILIT 
4. THE OPERATOR WILL BE PROMPTED TO USE A SCRATCH Disk’ IN DX1 & TYPE "P* TO PROCEED. 
5. WHEN COMPLETED, THERE WILL BE A VERIFYING MESSAGE. 
THE OPERATOR CAN THEN DO A 'P* TO COPY ANCTHER IN THE SAME MANNER, 
OR A °240G° TO BEGIN NORMAL TESTING. (OPERATOR WIil BE PROMPTED) 
6. THE COPY UTILITY CAN BE ENTERED AT ANY TIME BY DOING A “BREAK & '250G°. 


SEQ 0008 | 
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ERROR INFORMATION. 


TYPICAL ERROR PRINTOUTS ARE SHOWN BELOW: 
TERM #3 DATA COMP ERR 


ERROR @ ERR PC EXPECT RECVD 

000011 006516 000200 000100 

DX1 SOFT ERR = DATA COMP 

DXTST @# ERR PC RxCS RXES RXSA EXPECT RECVD # RETRIES 
000003 010636 100337 000230 003405 100520 100120 4 
DXO HARD ERR - AFTER og CMD 

ERROR # DXTST #@ ERR RXCS RXES TRACK SECTOR M#RETRIES 
000016 000001 011266 100337 000230 59 18 10 


WHERE ALL VALUES TYPED ARE OCTAL EXCEPT : 
WRETRIES, TRACK, & SECTOR WHICH ARE IN DECIMAL. 


BITS 15, 13, @ 10 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


BIT 15 SET: CAUSES THE PROGRAM TO HALT IN THE ERROR ROUTINE. 


IF THE PROGRAM 1S CONTINUED, IT WILL PROCEED 
FROM WHERE IT HALTED. 


BIT 13 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 SET: CAUSES THE BELL TO RING ON ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G <*S> FUNCTION. 
REFER TO SECTION 2.3 FOR DETAILS. 


NOTE: SINCE THERE ARE NO SPECIFIC TEST NUMBERS, APT WILL 
REPORT ALL ERRORS AS TEST O ERRORS. 


ERROR HALTS. 


N THE ERROR ROUTINE, AND 


THE ONLY HALT IN THE EXERCISER l 
15 THE SWITCH REGISTER (SWREG) JIS SET 


] ] 
1S EXECUTED CNLY JF BIT 150 
WHEN AN ERROR OCCURS. 


S 
F 


SEQ 0009 
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PROGRESS & PERFORMANCE REPORTS 


THE FOLLOWING REPORTS ARE ENABLED WITH BIT 12 SET IN by SWITCH REGISTER (SWREG LOC 176) 
& WILL APPEAR FOLLOWING LOADING & STARTING AS DESCRIBED 


K 
16-FEB-79 
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IN SECTION 2.1 (ASSUMING ALL DEVICES ARE TO BE TESTED & NO ERRORS): 


MEM TESTS DONE 


EIS-FIS TESTS DONE 


CLOCK RUNNING 


PRINTER RUNNING 


SYNC COMM DONE 


ASYNC COMM RUNNING 


TERM #1 RUNNING 


TERM #2 RUNNING 
TERM #3 RUNNING 


TRK 0 DONE 
TRK 0 
1 
1 


TRK 1 DONE 


DATA PATT DONE 
DATA PATT DONE 


RANDOM SEEKS DONE 
RANDOM SEEKS DONE 


OF PASS #1 


(ALL MEMORY FROM LOCATION 0 TO THE BEGINNING OF THE 
RT-11/XXDP MONITOR (WHEN AVAIL) HAS BEEN TESTED.) 


(1000. NUMBER OF PASSES OF THE EIS-FIS INSTRUCTION 


EXERCISER HAS BEEN EXECUTED.) 
(109 INTERRUPTS HAVE BEEN DETECTED BEFORE EXERCISING THE NEXT DEVICE. 


THE CLOCK CONTINUES RUNNING IN INTERRUPT MODE.) 
(5 LINES HAVE BEEN PRINTED WITH ERROR BIT CHECKING ONLY. 


THE PRINTER RUNS CONTINUOUSLY IN INTERRUPT MODE AT 9600 BAUD. 
ITS ACTUAL PERFORMANCE IS A VISUAL CHECK IF PRINTER CONNECTED. 


NO OTHER CHECKING PERFORMED IF EXTERNAL LOOPBACK USED. 


(CHARACTERS 0 THRU 377 HAVE BEEN TRANSMITTED & RECEIVED WITH ODD PARITY ENABLED. 
INTERRUPTS ARE THEN DISABLED & THE SYNC COMM IS NO LONGER EXERCISED. 


THIS IS SO THAT THE ASYNC COMM CAN BE EXERCISED 
FOR THE DURATION OF THE PASS.) 


(CHARS 0 THRU 377 HAVE BEEN TRANSMITTED & RECEIVED BEFORE 
EXERCISING THE NEXT DEVICE. 
1T CONTINUES RUNNING IN INTERRUPT MODE AT 9600 BAUD 

WITH ODD PARITY ENABLED & REPEATS THE 0 THRU 377 CYCLE) 


(CHARACTERS 0 THRU 377 HAVE BEEN TRANSMITTED 

& RECEIVED BEFORE EXERXCISING THE NEXT DEVICE. 

THE TERMINAL KEEPS RUNNING CONTINUOUSLY AT 2400 BAUD 
IN INTERRUPT MODE & REPEATS THE O THRU 377 CYCLE) 


(SAME AS #1) 
(SAME AS #1) 


(DRIVE 0, TRACK 0 
(DRIVE 1, TRACK 0 
(ETC) 

(ETC UNTIL 


(ALL TRACKS “AVE BEEN WRITTEN WITH A DATA PATTERN IN INTERRUPT MODE.) 


(SAME A 


I$ 
1S 


WRIT 
WRIT 


T 
T 


EN W 
EN W 


TH 
TH 


A DATA PATTERN, READ & DATA COMPARE PERFORMED) 
A DATA PATTERN, READ & DATA COMPARE PERFORMED) 


DX 
(FOR 1°ST PASS TRACKS 0-4, 40-44, 72-76(10) DONE ONLY.) 
(500 RANDOM SEEKS WITH READ & DATA COMPARE HAVE BEEN PERFORMED ON DRIVE 0 ) 


(SAME AS DX0....10 RANDOM SEEKS ONLY FOR 1°ST PASS QUICK VERIFY) 


TOTAL ERRORS: 


TOTAL SOFT ERRORS: 


TOTAL 
SOFT 


ERRORS THIS PASS: 
ERRORS THIS PASS: 


oo 


(...8 ENTIRE PROCESS REPEATS) 
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5.0 DEVICE REGISTERS. 


PARAMETER REGISTER: 
7 w= we we we 9 8 7 6 5 & 3 2 1 0 


PPP P TPP I SIT ITecteTTTc Tritt iti iii tiiiititiititititiiiti 
: : PORT : BAUD ! USR! USR!IPAR !PAR ! CHAR -MAIN: ! 177420 (WR ONLY) 
: : SELECT : RATE ' LT2! LTVITYP (EN! LENGTH ! ; : 


Cee ee eee eee ee eRe eee Ke Ree KeReKeRHeKeeeeeeererereererereeeerereereeeteneneeerenetee 
‘ ' ' ' ' 


LINE CLOCK: VECTOR: 100 
7 “= we le 9 8 7 6 5 4 3 2 1 0 


(RR RRRSRSASAEA LASERS SESE REESE S ESSE SAREE SEER SESE SESE SEERA SERRE E SESE SES 
1 ' ' ' ‘ ‘ 1 1 ' 'CLK ' ' 1 1 ' ' ' 177546 
' ' ' ' ! ‘ ' ! ' ‘IE i ' t ' ' ' ' 
etereveveususcsevecensuensusaracacsoccescasecerscccccesececcocoesearonseseneerens 

' ‘ ‘ ' 


CONSOLE : ADDR: 177560-177566 VECTOR: 60/64 

CLUSTER #1: 176500-176506 300/304 
W2: 176510-176516 310/314 
a3: 176520-176526 320/324 


7s “« YT Re Ww 9 8 7 6 5 4 3 2 1 0 


SHEKHAR KHKe Heke eeeeeeeeteterekerekeeaeetaeneteeese 


antes Cae tok nd Se ae ee Oe eee os eee ee ee ot 
Tht ve Cee ch eS. OO i 2 ee ee 
ceccccecrecerereresercererareencnrarecerererecerererererecerceeeeceneeeererateree 
a a Oe ee ee ee en ee KB DATA BUFFER 
‘ ‘ ' ‘ ! ‘ ' ' ' 
ceececcerercenrcrercccncecnreeernrererererererererereerereeerereeeeeeererereretes 
og ET ee Se ee eee ee eer eee | ee et ees oe ee 
le shad et Whee teks ee te SS a ee ed ek Beet ee, 
(RRR BRBRRARARBSRSRSRSSERRRRSRRSRRRRR ERR RRRRRRSRRRARRRRRARRRARRRSRRRRERA REE RE SERRA SRS SE SC 
sa Pho ee ee os ae OS ee PRINTER DATA BUFFER 


: : : t : : : : (WRITE ONLY) , 
ooo coe recccreercnrenercnrreneneerereererereereereerrercereereerrerearenenereeeres 
‘ ' i ‘ ' 
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PRINTER: . VECTOR: 200 
mm WS HD we WH WW 9 8 7 6 5 4 3 2 1 0 


eerererrrrererererereeeeeenteeeetiaeeeeeeeeereeeteeeeeeeeeetereeeeeeeeeeeeeeeeeeee 


ae waa HOE Ge Ge et Oe ee ee ee ee ee ee ee 
feve Ricdk eth DRE Sclk ee pte Ee ee. Ee CA ek eee 
eeeeeeeeeerereeerennrrreerenerretenereeeerrereeteerereeeereereeeeereeeeeeereteets 

ter Co ee oak SS ON Re PRINTER DATA BUFFER ! 177516 
Rice Boke eee Site aS Ci (WRITE ONLY) 


ITITITISTISIITITITTIITITITITTTIIITTITITTTITTTITITTT TTT TTT itt iii 
' ' ' ' ' 
ASYNC MODEM: VECTOR: 330/334 
ne we ee 10 9 8 7 6 5 4 3 2 1 0 


LARRRAAASARAASRSARARASERARSLASASASERESAESE SEER EARS E SA RAS RRS A ASE A REAR ARE R EERE RRR RSE 


RCSR! DSI!RING! CTS! CAR! | SEC!DSET! = !RCVRIRCVRIDSET! ==! SEC! RTS! DTR! = !_—:176610 
(| DET! «=f REC! RDY! = !DONE'IE HIE!) IXMIT! 
Ceeeeceececccereenrerrenreereretererreerereeeceereerererterterrenertxteeeeeeneete 
RBUF! ERR!OR 'FR 'PAR! : ! 3! 3 RECEIVER DATA BUFFER ! 176612 
(TERR TERR 'ERR$ ft Et 
Ceeeeeeeereneeeenekeeeeeeeeeteeneeeerenereerereerereereerereerertereeeeeneeenete 
Sk ee ORE Be TT aE a ee? eee 
ete 3503 BS Te sot Oe, ET BA ek ee BU ee ta 
(RRA RRBRRBRARSGAASASASERAR RARER ARARESESRRARAAA SAREE AR EARLE REA RE RRR RRR ARRRRRRAARE SS S 
onat Sn teas Von Gee Shee ce ee ee TRANSMITTER DATA BUFFER ! 176616 
BRS. Midet etn Soca Ns ee Se (WRITE ONLY) 


steceueuscnacaceuaccanaceneusoncccsucarececececesrsecereseseerererereneneeeenenes 
' ' ' ' 


SYNC MODEM: ’ VECTOR: 340/344 
iw. ee: Ee oe 9 8 7 6 5 4 3 2 1 0 


eeeererrerrerereeeereeetetetereeeeeeeeereeeeeeeeeeeeeeee tee ee rere deere eee e tees 
RCSR! DSC!RING! CTS! CAR!REC ! SEC!DSET!STRP!IRCVR!IRCVRIDSET!SRCH! SEC! RTS! DIR! ! 176620 
; : : ! DET!ACT ! REC! RDY!SYNC!DONE!IE ‘IE !SYNC!XMIT! : ; 


SCHHHHHAAHKAKAHAAEHAAAAAHAEKHAAAEHAAEAAAAEEAEAAHEARAEEEAEEHEAEARETH AAR KAe 


RBUF ! on : a ; ; RECEIVER DATA BUFFER 176622 (RD ONLY) 
' ' ' ‘ 
cesenausnsneesnnensnsnuensesnarsecensensesccensnscensesesenssssesseneeseaneeetes 

FCSR! SYNC! : ! WORD 'PAR !'EVEN! SYNC REG ' 176622 (WR ONLY) 


; ‘CHAR! . ! LENGTH !JE !PAR ! ' 


POTETTTETTTITITITITTTTT TIT TLT TTT TTT TTITTILTTITi Tit iiiiiiiiiiiiiiiiiiiti i 


XCSR!DNA ! : ‘MA ='MA SS! : 'MAST!XMIT!XMIT!DNA !SEND!H/F ! : ’ ! 176624 
: f : !MODE!CLK ! : ast tne {2E 6 Ct ‘DUP ! ; : - 
TITTLE teat iii iii iii itis) 

XBUF - : ‘ : : ‘ : : : TRANSMITTER DATA BUFFER ! 176626 

; : ; ; : : ; : (WRITE ONLY) ; 


sveccccccccccccccacenccenrevsccacaccccucencccacocecececcenacereceseuseneceseseess 
' 
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CVKDAC.P11 16-FEB-79 1 


DISK: 
1$ 14 7 we 11 10 9 8 7 6 5 4 3 2 1 0 
eeerrereerrrreerrererteneeeeeteeeneeeeeteketeeeeeeteteteateeeeeeeeeetaeeteeaeeeeeeAee 
RXCS'ERR ! : ; ) : 4 4 'CTL ‘ORV ! ‘UNIT! FUNCTION ! GO! 
‘ ‘ : ‘ : : ; : 'DONE'IE ! ‘SEL ! : : 
eereeerererrerteerertereeekateeeeeeeeeeeeeeeeeeereteeeeeeeReeeeeteteaaeneraeeaeeres 
RXDB! DATA BUFFER P 
Ceeeercnccccccnrcccerenncccnnccnnreeceececceercercecececeececeecceeeegceneeeeeers 
RXES! 4 4 ; : : “ ; 'DRV ! ' DEL!RNF ‘CRC !LOST! INV! ID ! 
: : 4 : ; : : - ‘ROY ! ‘DATA! ' ‘DATA! ADDR! 
eeeeeeererazeraetetaeeeeenetenenkereanheeeeteneteteteeterteteeeeeeeteteteeeakeneeaesese 
RXSA: ; TRACK O = 114(8) ; . : : SECTOR 1 = 32(8) ! 


' ' ' ' ' 
Coeeerecennerecerrererenrerencerenrererereereceerereeerereeeereerereneerneerereee 
' '‘ ' ' ' 


6.0 DEVICE CONNECTOR LAYOUT 


eeaererereeeaeretaeeaeretaekakeeeeeaeeeeeteteretekteeeeeeeeeeee 


* sd & 
CLUSTER TERMINAL #3 COMM PORT 
PORT 
® ® ® 
Seeeeeeeeaeeeeeaaekeetakaeeeeetaekaeteteertereterteretetereteres 
@ * w 
CLUSTER TERMINAL #2 PRINTER PORT 
PORT 
° ® ft 
eeeceaeeereeeeeaeeaeeeenataeaceeaeeeaeaeneeetaeeeeeeeeeeeeteteereeese 
® ® we 
CLUSTER TERMINAL #1 CONSOLE PORT 
PORT 
o ®: ® 


eeeeeeeateraetenetetetaetaenkeeeeeeeweeeeeteeeeeeeeeeeee ee tene 


VECTOR: 264 


177170 


177172 


177172 


177174 


SEQ 0015 
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1O-FEB=79 11:12 SEQ 0014 


SUMMARY OF TESTS (SEE PROGRAM | ISTING FOR ADDT'L DETAILS ON SPECIFIC TESTS) 


PHASE 1 
MEMORY TESTS A. LOC 0 THRU END OF PROGRAM IS TESTED FOR TIMEOUT. 

B. END OF PROGRAM 10 BOTTOM OF MONITOR/ABS 4 eae 

1S TESTED WITH A 125252 @ 052525 PATTER 

C. IF 28K PRESENT, MEMORY FROM 28K TO 30K. Ig SIMILARLY TESTED. 
PHASE 2 
EIS-FIS TESTS A. EIS INSTRUCTIONS ‘‘ASH-ASHC-MUL-DIV"’ ARE EXECUTED. 

- FIS INSTRUCTIONS ‘FADD-FSUB-FMUL-FDIV'’ ARE EXECUTED. 


PHASE 3 


ALL AVAILABLE PERIPHERALS ARE EXERCISED CONTINUOUSLY IN INTERRUPT MODE. 
SEE SECTION 2.4 FOR DETAILS OF SETTING UP THE DEVICE MAP ($DEVM) FOR DEVICE TO BE TESTED. 
SEE SECTION 4.1 FOR DETAILS ON PROGRESS REPORTS. 


START LINE CLOCK INTERRUPTS ARE DETECTED. 

START PRINTER CONTINUOUS LINES ARE PRINTED. 

START SYNC COMM PORT CHARS 27 THRU 377 1 +903 ONLY 
START ASYNC COMM PORT CHARS 0 THRU 377 TESTED CONTINUOUS 

START CLUSTER TERMINAL #1 CHARS © THRU 377 ARE XMITTED, REC’ : "i TESTED. 
START CLUSTER TERMINAL #2 SAME 

START CLUSTER TERMINAL #3 SAME 


PHASE 4 

WHILE THE ABOVE DEVICES ARE INTERRUPTING RANDOMLY, DISK SUBSYSTEM TESTS BEGIN: 
FILL &@ EMPTY BUFFER TESTS ARE PERFORMED TO VERIFY THAT NO 
CABLE CROSS-TALK PROBLEMS EXIST BEFORE BEGINNING ACTUAL 
DATA TRANSFERS TO THE DISK SURFACE. 


DXO & DX1 DATA PATTERN: WRITE, READ & DATA COMPARE 1'ST 10 TRACKS ON 1'ST PASS. 
ALL TRACKS ON SUBSEQUENT PASSES. 


DXO & DXi RANDOM SEEKS: READ & DATA COMPARE. 
20 SEEKS ON 1'ST 10 TRACKS ON 1°ST PASS. 
500 SEEKS ON ALL TRACKS ON SUBSEQUENT PASSES. 


DXO INITIALIZE, RESTORE, WRITE DELETED DATA, READ STATUS, & INVALID ADDRESS TEoTS. 


NOTE: 


1, RECOVERY IS PERFORMED (RESTORE COMMAND) AFTER ANY RNF ERROR ON WRITE OR READ. 
2. DATA IS TESTED AFTER A HARD CRC ERROR ON A READ TO TEST WHETHER DATA CRC ERROR OR CRC ERROR. 
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000011 


000006 
000007 
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TITLE CVKDAC PDT11-150 EXERCISER 
+ *COPYRIGHT (C) 1979 

:*DIGITAL EQUIPMENT CORP. 

5 OTATRAND MASS. 01754 


;*PROGRAM BY GARY PAPAZIAN 


TeTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
gs SPACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


15 HALT ON ERROR 

13 INHIBIT ERROR TYPEOUTS 

12 ENABLE PERFORMANCE REPORTS 
10 BELL ON ERROR 


~SBTTL BASIC DEFINITIONS 
a. te OF THE STACK POINTER *** 1100 *#* 


STACK= 0 
~-EQUIV EMT,ERROR :;BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE :;BASIC DEFINITION OF SCOPE CALL 


: *MISCELLANEQUS DEFINITIONS 


HT= 11 3;;CODE FOR rad taunt TAB 
LF= 12 ;;CODE FOR LINE FEED 

CR= 15 ;;CODE FOR CARRIAGE RETURN 
CRLF= 200 3;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 3;PROCESSOR STATUS WORD 
-EQUIV PS,FSW 

STKLMT= 177774 s:STACK LIMIT REGISTER 
PIRQ= 177772 3;PROGRAM INTERRUPT REQUEST REGISTER 
DSwWR= 177570 ;;HARDWARE SWITCH REGISTER 
DDISP= 177570 ; HARDWARE DISPLAY REGISTER 
s*GENERAL PURPOSE REGISTER 124 red ry 

RO= x0 > GENERAL REGISTER 

Ri= x1 + ENERAL REGISTER 

R2= %2 ::GENERAL REGISTER 

R3= x3 >;GENERAL REGISTER 

R4= 44 7:GENERAL REGISTER 

R5= “5 7 :;GENERAL REGISTER 

R6= %6 ;;GENERAL REGISTER 

R7= x7 ;;GENERAL REGISTER 

SP= %6 3:STACK POINTER 

PC= 47 3;PROGRAM COUNTER 


;*PRIORITY LEVEL DEFINITIONS 


SEQ 0015 


CVKDAC 
CVKDAC 
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PDT11-150 EXERCISER 
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000000 


000340 


100000 


¢00091 


100000 


000001 


D2 

MACY11 306(1063) 16-FEB=79 11:13 PAGE 
BASIC DEFINITIONS 

PRO= 0 : PRIORITY LEVEL 
PRI= 40 ; PRIORITY LEVEL 
PR2= 100 ; PRIORITY LEVEL 
PR3= 140 > PRIORITY LEVEL 
PR4= 200 + PRIORITY LEVEL 
PR5= 240 ; PRIORITY LEVEL 
PR6= 300 sPRIORITY LEVEL 
PR7= 340 sPRIORITY LEVEL 
s*'"SWITCH REGISTER’’ SWITCH DEFINITIONS 
Sw15= 100000 

Sw14= 40000 

Sw13= 20000 

Swi2= 10000 

SWIt= 4000 

Swi0= 2000 

SwO9= 1000 

SwO8= 400 

SwO7= 200 

Sw06= 100 

SwO5= 40 

SwO4= 20 

SwO3= 10 

SwO2= 4 

SwOl= 2 

SwOO= 1 

-EQUIV SWO09,SW9 

EQUIV Sw08,SW8 

EQUIV SwWO7,SW7 

EQUIV SW06,SW6 

EQUIV Sw05,SW5 

EQUIV SW04,SW4 

EQUIV SWw03,SW3 

EQUIV SwW02,5W2 

EQUIV SwWO1,SW1 

EQUIV Sw00,SWO 

;*DATA BIT DEFINITIONS (BIT00 TO BIT15) 
B1T15= 100000 

BIT14= 40000 

B1T13= 20000 

BITI2= 10000 

BIT11= 4000 

B1T10= 2000 

B1T09= 1000 

B1T08= 400 

B1T07= 200 

B1T06= 100 

B1T05= 40 

BIT04= 20 

B1T03= 10 

BIT02= 4 

BITOI= 2 

BIT00= 1 

-EQUIV B1109,B119 

EQUIV B1108,B118 


— 
o 


SEQ 0016 


NOUS WhO 
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000004 


000240 


000200 
000100 


000330 
000334 


000340 
000344 


000264 
000300 


000324 
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MACY11 30G6(1063) 
BASIC DEFINITIONS 
-EQUIV B1T107,B117 
-EQUIV B1106,B116 
-EQUIV B1T05,B1T5 
EQUIV B1T04,B114 
EQUIV B1103,B1T3 
-EQUIV B1102,BI1T2 
-EQUIV) B1T01,B1T1 
EQUIV B1T00,B110 
fences ““CPU'’ TRAP VECTOR ADDRESSES 
ERR VEC= 4 3: TIME OUT AND OTHER ERRORS 
RESVEC= 10 at tot ta AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 el 
TRIVEC= 14 : TRACE TRAP 
BPTYEC= 14 [BREAKPOINT TRAP (BPT) 
1OTVEC= 20 3; INPUT/OUTPUT TRAP (I0T) **SCOPE*e 
PWRVEC= 24 ;;POWER FAIL 
EMTVEC= 30 ; sEMULATOR TRAP (EMT) **ERROR*®* 
TRAPVEC=34 33'"TRAP’’ TRAP 
TKVEC= 60 7; TTY KEYBOARD VECTOR 
TPVEC= 64 3; TTY PRINTER VECTOR 
FP, RQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
p_eeeeenereeeeerereereerererereeeeeeeeeeeeeeKeeeeeeTeRKeeeAKTEREe 
3* PDT=-11/150 DEVICE VECTORS 
P_eeeneeeeeeeerereeeeeeredretereeeeereeeeReKeeeeeeKeeeeKeLAATes 
PRVEC= 200 ;PRINTER 
CLKVEC= 100 ;LINE CLOCK 
AMRVEC= 330 ;ASYNC MODEM RECVR 
AMXVEC= 334 : XMITR 
SMRVEC= 340 > SYNC MODEM RECVR 
SMXVEC= 344 ; XMITR 
RXVEC= 264 DISK 
TKIVEC= 300 ;CLUSTER TERM #1 VECTORS 
TPIVEC= 304 
TK2VEC= 310 ; #2 
TP2VEC= 314 
TK3VEC= 320 : a3 
TP3VEC= 324 


SEQ 0017 


oe 
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177420 
177546 


177514 
177516 


176610 
176612 
176614 
176616 


176620 


176500 
176502 
176504 
176506 


176510 
176512 
176514 
176516 


176520 


176526 
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MACY11 30G6( 
FINITIONS SEQ 0018 


1 
BASIC DEFINI 


;, eeeeeererrererererererererereererereeeekereereeeeneeeerereeeeee 


PDT=11/150 DEVICE REGISTERS 


-atrkekerrereteterereerekereeeeeeeeeeeeeeeteereteeeeeeerereeeeee 


PARAM= 177420 sPARAMETER REGISTER (WRITE ONLY) 
CLK= 177546 sLINE CLOCK 

PRS= 177514 sPRINTER STATUS REG 

PRB= 177516 ; BUFFER (WRITE ONLY) 
AMRC= 176610 ;ASYNC MODEM RECVR STATUS REG 

AMRB= 176612 : UFFER 

AMXC= 176614 ‘ XMITR STATUS REG 

AMXB= 176616 : BUFFER (WRITE ONLY? 
SMRC= 176620 s;SYNC MODEM RECVR Abed. REG 

SMRB= 176622 : BUFFER (READ ONLY) 

SMPAR= 176622 : PARAMETER REG (WRITE ONLY) 
SMXC= 176624 : XMITR STATUS REG 

SMXB= 176626 ; BUFFER (WRITE ONLY) 
RXCS= 177170 sDISK CSR 

RXDB= 177172 : DATA BUFF 

RXES= 177172 : ERROR & STATUS REG 

RXSA= 177174 ‘ TRK & SECTOR ADDR REG 


TK1S= 176500 sCLUSTER TERMINAL #1 
TK 1B= 176502 
TPIS= 176504 
TP1B= 176506 


TK2S= 176510 : #2 
TK2B= 176512 
TP2S= 176514 
TP2B= 176516 


TK3S= 176520 3 a3 
TK3B= 176522 
TP3S= 176524 
TP3B= 176526 
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010000 


040000 


000000 


007400 


000060 
000020 


000000 
000004 
000010 
000014 


000002 
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BASIC DEFINITIONS 


-ferrrerrrrrrererrererrreeerererereereerereteeereteteenereereteeet 


i PARAMETER REGISTER EQUATES WRITE ONLY 


-erkaererterrterererrererererereererenearereereeekererenerereeene 


;B1T 14-12 PORT SELECT 


CONSOL = _— + SELECT CONSOLE TERMINAL 


CLUSTER TERMINAL 4! 


CT2= 50000 : 
C13= 60000 3 a3 
PRT= 20000 ; PRINTER PORT 
AMOD= 30000 : ASYNC COMM PORT 
ULITE= 40000 : USER LIGHTS 
:B1T 11-8 BAUD RATE (DELTA = 400) 
B50= 0 :50 BAUD 
B75= 400 te. 
B110= 1000 3110 
B134= 1400 3134.5 
B150= 2000 ;150 
B300= 2400 ; 300 
00= 3000 ;600 
B1200= 3400 ; 1200 
B1800= 4000 ; 1800 
B2000= 4400 32000 
B2400= 5000 32400 (CLUSTER DEFAULT) 
B3600= 5400 ; 3600 
B4800= 6000 :4800 
B7200= 6400 ; 7200 
B9600= 7000 9600 (PRINTER & ASYNC DEFAULT) 
B19200= 7400 319200 


‘IF 110 BAUD SELECTED, 2 STOP BITS ARE ASSUMED. 
:BITS 4-5 PARITY CONTROL 


EPAR= 60 SEVEN PARITY ENABLE 

OPAR= 20 [ODD PARITY ENABLE (DEFAULT) 

“BITS 3-2 CHARACTER LENGTH (DELTA = 4) 

CHARS= 0 :5 BITS/CHAR 

CHARO= 4 76 

CHAR7= 10 :7 

CHARB= 14 [8 (PRINTER, TERMINAL MODEM DEFAULT) 


;BIT 1 MAINTENANCE BIT 


MAINT= BIT1 :ENABLE MAINT MODE 


PRINTER & DISK DO NOT HAVE MAINT MODE 


SEQ 0019 
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100000 


000002 


100000 


010000 


000200 
000100 
000001 
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-werrterrererrtrererrerenereeererereeeeeaeeenekeenereeeneerereeee 


ASYNC MODEM BIT DEFINITIONS 


uw“ oO 
wzo-, 
mmnnAze— 
m moon an 
" 


uw<tw 
" 


DON 


SXMIT= 


7XCSR 


Onmvwseu 


Bowwwwowwwnwaw 
ee st et 
hh ah a eg 
—NWWUYIO Oe Ss Ss es 


-ererrerterereereeeeeeeeretereeeerereeeeeteeeteteteeereeeeeeenese 


;DATA SET INTERRUPT 
RING 
;CLEAR TO SEND 


CARRIER DETECTED 

SECONDARY RECD/SUPERVISORY RECD 
:DATA SET RDY 

;RECVR DONE 


:RECVR IE 

:DATA SET IE 

SECONDARY XMIT/SUPERV XMIT 
;REQ TO SEND 

;DATA TERMINAL RDY 


;ERROR 

;OVERRUN ERROR 
;FRAMING ERROR 
sPARITY ERROR 


sXMIT RDY 
sXMIT IE 
; BREAK 


SEQ 0020 
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100000 


000002 


100000 
940000 
010000 


000000 
040000 


000000 
002000 
004000 
006000 


001400 
001000 
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BASIC DEFINITIONS 


--weterertrrerererrererreeerereererereeeeeerereneerereeeereeereee 


:* SYNC MODEM BIT DEFINITIONS 


-aettaeeerererretreeererereteeereeeteeeeekeneetekeekeketeeererete 


:RCSR 

DSC= BIT15 :DATA SET CHANGE 

RING= BIT14 sRING 

CTS= BIT13 ;CLEAR TO SEND 

CDET= BITI2 CARRIER DETECTED 

RACT= BI1T11 sRECVR ACTIVE (SYNC DETECT) 
SREC= B1T10 > SECONDARY RECD/SUPERVISORY RECD 
DSRDY= B1T9 sDATA SET RDY 

STSYN= BI1T8 STRIP SYNC 

DONE= B17 sRECVR DONE 

IE= BIT6 sRECVR IE 

DSIE= B1T5 sDATA SET IE 

SRSYN= BIT4 SEARCH SYNC 

SXMIT= BI1T3 ; SECONDARY XMIT/SUPERV XMIT 
RTS= BIT2 ;REQ TO SEND 

DIR= BIT DATA TERMINAL RDY 

; RBUF 

ERR= BIT15 ERROR 

ORERR= BIT14 ;OVERRUN ERROR 

PARERR= BIT12 PARITY ERROR 


:PARCSR PARAMETER CONT REG 
"BIT 14. SYNC CHAR 


SYNC2= 0 :2 SYNC CHARS (DEFAULT) 
SYNCI= BIT14 ‘1 


sBITS 10-11 WORD LENGTH 


CHRS= 0 :5 SITS/CHAR 

CHR6= 2000 36 

CHR7= 4000 :7 

CHRB= 6000 78 (DEFAULT) 

:BITS 8-9 PARITY CONTROL 

ENVPAR= 1400 sENABLE EVEN PARITY 

ODDPAR= 1000 ‘ENABLE ODD PARITY (DEFAULT) 


SEQ 0021 
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CVKDAC.P11 16-FEB-79 11:12 BASIC DEFINITIONS SEQ 0022 
1025 
1026 sXCSR 
1027 ; 
1028 100060 DNA= BIT15 sDATA NOT AVAIL 
1029 010000 MM= BIT12 sAAINT MODE 
1030 004000 MCLK= B1111 sMAINT CLOCK 
1031 000469 MR= BIT8 sMASTER RESET 
1032 000200 RDY= BIT7 sXMIT RDY 
1033 000100 1E= BIT6 sXMIT IE 
1034 00C J40 DNAIE= BITS sDATA NOT AVAIL IE 
1035 000020 SEND= B1T4 3 SEND 
+44 000010 HFDUP= BIT3 3 1=HALF DUPLEX, O=FULL DUPLEX (DEFAULT = 0 FOR TESTS) 
1038 
1039 
1040 
1041 ps, eeteeeerererereeeeeereeereeereteeeeeeteeterereeeteneeeteeeteeeese 
1042 :DISK BIT DEFINITIONS 
1043 pete eeeeeeeerererererereetereereeterkereKeeeeetereeeeeeneeeeeeee 
1044 
1045 sRXCS 
1046 ° 
1047 100000 ERR= BIT15 s ERROR 
1048 000200 DONE= BIT7 sCONTR RDY 
1049 000100 lE= BIT6 sORIVE IE 
1050 000020 DX1= BIT4 sUNIT SELECT: O=Dx0, 1=Dx1 
4 000020 USEL= BI1T4 sUNIT SELECT 
$4 sFUNCTIONS (INCLUDES BITO = GO) 
1055 000001 F BUF = 1 sFILL BUFFER 
1056 000003 EBUF= 3 sEMPTY BUFFER 
1057 000005 WSEC= § sWRITE SECTOR 
1058 000007 RSEC= 7 ;READ SECTOR 
1059 000011 INITAL= 11 s INITIALIZE 
1060 000013 RSTAT= 13 ;READ STATUS 
1041 000015 WODSEC= 15 sWRITE DELETED DATA SECTOR 
+9 4 000017 RESTOR= 17 sRESTORE TO TRACK 0 
ane sRXES: ERROR & STATUS 
1066 000200 RDY= BIT? sDRIVE RDY 
1067 000040 DD= BITS ;DELETED DATA DET. 
1068 000020 RNF = BIT4 ;RECORD NOT FOUND 
1069 000010 CRC= B1T3 ;CRC ERROR 
1070 000004 LDATA= BIT2 sLOST DATA 
1071 000002 INVADR= BIT1 ; INVALID ADDR 
72 000001 1D= B110 s INITIALIZE DONE 
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CVKDAC.P11 = 16-FEB-79 11:12 BASIC DEFINITIONS SEQ 0023 
1075 
1076 $ ;, eeeteeereserereerererererererererrrreeeeeereteteeeeererenererere 
1077 :° SWITCH REGISTER 
H+ 14 3 ;, eeeererererereereererereeeeeererereteeeeeeeeeneeeeerereeeeeeere 
1 
1080 000174 .=174 
1081 000174 000069 DISPREG: WORD 0 ;SOFTWARE DISPLAY REG 
1082 000176 000000 SWREG: .WORD 0 SOFTWARE SWITCH REG 
1084 000100 .=100 
1085 000100 00010? 102 ;SETUP CLOCK VECTOR AREA TO DO RTI 
1086 000102 000bve 2 :1F ENABLED 
1088 000200 .=200 
1089 000200 000137 003334 JMP START USE ONLY ONCE. WILL BE OVERLAID BY 
1090 ;PRINTER VECTOR ADDR. 
1091 000240 .=240 
1092 000240 000157 003334 JMP START ;RESTART ADDR 
1094 000250 .=250 
1095 000250 000137 003316 JMP STARTS ENTER HERE FOR COPY UTILITY 
1096 000260 -=260 
1097 600260 000137 003276 JMP STARTI ;COMPATABILTIY PASS 1 
1098 000270 .=270 
1099 000270 000137 003304 JMP START2 : PASS 2 
1101 
1102 
1103 001000 .= 1000 
1104 -SBTTL APT PARAMETER BLOCK 
1106 peeteeeeereeeereeeeeeerereeeerenereteekeekeeeeeeekeeeKeeeteeee ee 
1107 Se LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
1108 perteeeeerereeeereeeteeeererereeereeeeekeeeeeeeeKeeeeeeeeeeeeeeee 
1109 061000 -$X=,  ;;SAVE CURRENT LOCATION 
1110 000024 .=2 {SET POWER FALL TO POINT TO START OF PROGRAM 
1111 000024 000200 200 T3FOR APT START U 
1112 000044 24h {POINT TO APT INDIRECT ADDRESS PNTR. 
1113 000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 
1114 001000 -=.$X 3 ;RESET LOCATION COUNTER 
1115 Pp eeteeeerererereeeetereeeteeeeeteeeeeeeeeeeeeeeKeeeeeeeeKe eee 
1116 ;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
1? INTERFACE SPEC. 
1119 001000 SAPTHD: 
1120 001000 000000 $HIBTS: .WORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
1121 001002 001170 SMBADR: .WORD $MAIL  ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
1122 001004 000024 $TSTIM: .WORD 20. :;RUN TIM OF LONGEST TEST 
1123 001006 000226 SPASTN: .WORD 150, RUN TIME IN SECS. OF IST PASS ON 1 UNIT (QUICK VERIFY) 
1124 001010 000000 $UNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
1125 001012 000030 WORD © SETEND-SMAIL/2 ;;LENGTH MAILBOX~ETABLE (WORDS) 
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CvKDAC P11 16-FEB-79 11:12 COMMON SEQ 0024 


ise -SBTTL COMMON TAGS 

1128 pp rrerererererererereerererrereerrererenterenereneterereeeeeeeees 
1129 >*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

a s*USED IN THE PROGRAM. 

1132 001169 -=1100 

1133 001100 SCMTAG: 3:START OF COMMON TAGS 

1134 001100 000000 -WORD 0 

1135 001102 000 STSTNM: .BYTE 0 3: CONTAINS THE TEST NUMBER 

1136 6001103 SERFLG: .BYTE 0 3:CONTAINS ERROR FLAG 

1137 001104 000000 SICNT: .WORD 0 3:CONTAINS SUBTEST ITERATION COUNT 
1138 001106 000000 SLPADR: .WwORD 0 3:;CONTAINS SCOPE LOOP ADDRESS 

1139 001110 000000 SLPERR: .WORD 0 >:CONTAINS SCOPE RETURN FOR ERRORS 
1140 001112 000000 SERTTL: .WORD 0 >:;CONTAINS TOTAL ERRORS DETECTED 
1141 001114 SITEMB: .BYTE 0 ‘;:CONTAINS ITEM CONTROL BYTE 

1142 001115 SERMAX: .BYTE 1 ::CONTAINS MAX. ERRORS PER TEST 
1143 001116 000000 SERRPC: .WORD 0 ;:CONTAINS PC OF LAST ERROR INSTRUCTION 
1144 001120 000000 SGDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘GOOD’ DATA 
1145 001122 000000 SBDADR: .WORD 0 ::;CONTAINS ADDRESS OF ‘BAD* DATA 
1146 001124 000000 SGDDAT: .WORD 0 3:CONTAINS ‘GOOD’ DATA 

1147 001126 000000 SBDDAT: .WORD 0 3:CONTAINS ‘BAD’ DATA 

1148 001130 000000 «WORD 0 7 ;RESERVED--NOT TO BE USED 

1149 001132 000000 -WORD 0 

1150 001134 000 SAUTOB: .BYTE 0 > ;AUTOMATIC MODE INDICATOR 

1151 001135 000 SINTAG: .BYTE 0 3: INTERRUPT MODE INDICATOR 

1152 001136 000000 -WORD 0 

1153 001140 177570 SWR: -WORD DSWR 7 ADDRESS OF SWITCH REGISTER 

1154 001142 177570 DISPLAY: .WORD DDISP 3; ADDRESS OF DISPLAY REGISTER 

1155 001144 177560 $TKS: 177560 3: TTY KBD STATUS 

1156 001146 177562 STKB: 177562 7: TTY KBD BUFFER 

1157 001150 177564 STPS: 177564 :: TTY PRINTER STATUS REG. ADDRESS 
1158 001152 177566 STPB: 177566 7: TTY PRINTER SUFFER REG. ADDRESS 
1159 001154 000 SNULL: .BYTE 0 3;CONTAINS NULL CHARACTER FOR FILLS 
1160 001155 002 SFILLS: .BYTE 2 >:CONTAINS # OF FILLER CHARACTERS REQUIRED 
1161 001156 012 SFILLC: .BYTE 12 3: INSERT FILL CHARS. AFTER A “‘LINE FEED" 
1162 001157 000 STPFLG: .BYTE 0 37'"TERMINAL AVAILABLE’’ FLAG (B11<07>=0=YES) 
1163 001160 177607 000377 $BELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 

1164 001164 077 SQUES: .ASCII /?/ ;; QUESTION MARK 

1165 001165 015 SCRLF: .ASCII <15> >: CARRIAGE RETURN 

1166 001166 000012 $LF: eASCIZ <12> 3:LINE FEED 

1167 ppeeeeeteererrerreeteeteeteeeeeeeeeeeeeK eee eee eeKee ee eee Ae 
dees -SBTTL APT MAILBOX-ETABLE 

1190 ppeeeeerereeeneteeeeeeeteterete eee eee Kee eee KAA Ke LENA LETS 
1171 EVEN 

1172 001170 SMAIL: 3;APT MAILBOX 

1173 001170 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 

1174 001172 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 

1175 001174 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 

1176 001176 000000 SPASS: .WORD APASS ;;PASS COUNT 

1177 001200 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 

1178 001202 000000 SUNIT: .WORD AUNIT 3:1/0 UNIT NUMBER 

1179 001204 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 

1180 001206 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

1181 001210 SETABLE: 3; APT ENVIRONMENT TABLE 
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1182 001210 000 SENV: .BYTE AENV ; ENVIRONMENT BYTE 
1183 001211 000 SENVM: .BYTE AENVM aN anita MODE BITS 
1184 001212 000000 SSWREG: .WORD ASWREG T SWITCH REGISTER 
1185 001214 000000 SUSWR: .WORD AUSWR STUSER SWITCHES 
1186 001216 000000 SCPUOP: .WORD ACPUOP ;;CPU TYPE, Spy Tere 
1187 se BITS 15-11=CPU TYP 
1188 he 11/04=01, 11/052 02.11/20=03,11/40=04,11/45=05 
1189 7° 11/70=06, -PDa=07, 0=10 
1190 3* BIT 10=REAL TIME 
1191 :* BIT 9=FLOATING POINT erase 
1192 5° BIT 8=MEMORY MANAG 
1193 001220 000 SMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
1194 001221 000 SMTYP1: .BYTE AMTYP] ::MEM. TYPE,BLKAI 
1195 7 MEM.TYPE BYTE == (HIGH BYTE) 
1196 3° 900 NSEC CORE=001 
1197 7° 300 NSEC BIPOLAR=002 
1198 2° 500 NSEC MOS=003 
1199 001222 000000 ADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA1 
1200 ;¢ MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "'TYPE'’ ABOVE 
1201 001224 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ~ow yf a BYTE 
1202 001225 000 SMTYP2: .BYTE AMTYP2 SOE, TYPE ,BLK 
1203 001226 000000 SMADR2: .WORD ‘MADR2 :RER. LAST ADDRESS, BLKA2 
1204 001230 000 SMAMSS: .BYTE AMAMS3 HIGH ADDRESS,M.S.BYTE 
1205 001231 000 SMTYP35: .BYTE AMTYPS ;; MER. TYPE ,BLK#3 
1206 001232 000000 SMADR5: .WORD AMADR3S ;;MEM.LAST ADDRESS BLK#3 
1207 001234 000 SMAMS4: .BYTE AMAMSS ;;HIGH ADDRESS,M.S.BYTE 
1208 001235 000 SMTYP4: .BYTE AMTYP4 ;;MEM. TYPE ,BLK&4 
1209 001236 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS ,BLK#4 
1210 001240 000300 SVECTI: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
1211 001242 000000 SVECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITY#2 
1212 001244 176500 SBASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
1213 001246 000017 SDEVM: .WORD ADEVM ;;DEVICE MAP 
1214 001250 SETEND: 
1215 »MEXIT 
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-SBTTL ERROR POINTER TABLE 


s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOCATION SITEMB. THIS =a s INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: If SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERRPC) 

3 *NOTE2: EACH ITER IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


3;POINTS TO THE ERROR MESSAGE 
;:POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

;;POINTS TO THE DATA FORMAT 


— 
~ 
— 
o 


001250 
GLOBAL DATA 


001250 024207 024614 EM1,DH2,012,DF 
001256 ‘ 


001260 024207 024614 ~ EM1,DH2,012,DF 
001266 : 


001270 024233 024624 EM2,DH3,013,DF 
001276 


001300 024207 024614 EM1,DH2,0T2,DF 
001306 


001310 024233 024624 EM2,DH3,013,DF 
001316 


001320 02 024170 024606 EM3,0H1,011,DF 
001326 r 


001330 lt 024275 024640 EM4 ,DH4 ,DT4,DF 
001336 


001340 024326 024650 EMS DHS 015, DF 
001346 


001350 024326 024662 EM6,DHS,D16,DF 
001356 


001360 024326 024674 EM7,DHS,D17,DF 
001366 


MMMM RP rn wr rrrwnnr 
WWIWNIMIN Poff fen nnn = 


Ww 
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2 tee ss os ss ss 


s 


001370 024326 024706 EM8 DHS .DT8,DF 
001376 


001400 1 024326 024706 EM9,DHS,DT8,DF 
001406 


001410 024363 024720 EM10,DH6,019,DF 
001416 
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sERR 16 
001420 022051 024430 024736 EM11,DH7,D110,DF1 
001426 025116 ie a 
001430 022051 024430 0247%6 ~ EM11,0H7,0110,DF1 
001436 025116 
sERR 20 
001440 022067 0244639 024736 £M13,DH7,D110,DF1 
001446 025116 —g 
001450 022120 024430 0247% ° EM14,0H7,DT10,DF1 
001456 025116 
sERR 22 
001460 022151 024517 024760 EM15,DH8,0111,0F2 
001466 025126 
ERR 23 
22202 
25126 
22233 
25116 
22233 
25116 
22 


001470 0222 024517 024760 EM16,0H8,0111,0F2 
001476 0251 

sERR 24 
001500 0222 024430 025002 EM17,DH7,0112,0F1 
001506 0251 

sERR 25 
GO1510 0222 024430 025002 EM17,DH7,0112,D0F1 
001516 0251 

sERR 26 
001520 922251 024430 025002 EM19,DH7,0112,DF1 
001526 025116 — 
001530 022302 024430 025002 EM20,DH7,D112,0F1 
001536 025116 

sERR 30 
001540 022333 024517 025024 EM21,0H8,0115,0F2 
001546 025126 can 81 
001550 022364 024517 25024 EM22,DH8,D'13,0F2 
001556 025126 

sERR 32 
001560 022415 024170 024606 EM23,DH1,011,DF 
001566 025110 — 
001570 022426 02427£ 024640 EM24 ,DH4,D14,DF 
001576 025110 

sERR 34 
001600 022443 024170 024606 EM25,DH1,011,DF 
001606 025110 

sERR 35 
001610 022460 024170 024606 EM26,DH1,D11,DF 
001616 025110 

sERR 36 
001620 022475 024170 024606 EM27,DH1,011,DF 
001626 025110 


ER ee ae 
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1322 sERR 37 
1323 001630 022512 024170 024606 EM28,DH1,DT1,DF 
1324 001636 025110 
1325 ; sERR 40 
1326 001640 022531 024170 024606 EM29,DH1,011,0F 
1327 001646 025110 
1328 ; sERR 41 
1329 001650 022551 024363 025046 EM30,DH6,D114,DF 
1330 001656 025110 
1331 ERR 42 
1332 001660 022562 024363 025046 EM31,DH6,0114,DF 
1333 001666 025110 
1334 sERR 43 
1335 001670 022573 024170 024606 EM32,DH1,D11,DF 
1336 001676 025110 
1337 SERR 44 
1338 001700 022636 024170 024606 EM33,DH1,D11,0F 
1339 001706 025110 
1340 sERR 45 
1341 001710 022677 024170 024606 EM34,DH1,D11,DF 
1342 001716 025110 
1343 sERR 46 
1344 601720 022551 024363 025046 EM30,DH6,0114,DF 
1345 001726 025110 
1346 sERR 47 
1347 001730 022551 024363 025046 EM30,DH6,0114,DF 
1348 001736 025110 
1349 sERR 50 
1350 001740 022551 024363 025046 EM30,DH6,0114,DF 
1351 001746 025110 
1352 sERR 51 
1353 001750 022551 024363 025046 EM30,DH6,0114,DF 
1354 001756 025110 
1355 sERR 52 
1356 001760 022736 024363 024720 EM35,DH6,D19,DF 
1357 001766 025110 
1358 ERR 53 
13559 001770 023003 024517 024760 EM36,DH8,D1T11,DF2 
1360 001776 025126 
1361 sERR 54 
1362 002090 023052 024363 024720 EM37,DH6,019,DF 
1363 002006 025110 
1364 sERR 55 
1365 002010 023076 024363 024720 EM38,DH6,D19,DF 
1366 002016 025110 
1367 ERR 56 
1368 002020 022551 024363 025046 EM30,DH6,D114,DF 
1369 002026 025110 
1370 ERR 57 
1371 002030 023144 024363 024720 EM39,DH6,D19,DF 
1372 002036 025110 


CVKDAC 
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P11 


002040 
002046 


002050 
002056 


002060 
002066 


002070 
002076 


002100 
002106 


002110 
002116 


002120 
002126 


602130 
002136 


002140 
002146 


002150 
002156 


002160 
002166 


002170 
002176 


002200 
002206 


002210 
002216 


002220 
002226 


002230 
002236 
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0233 
0251 


7 
1 
023431 
025116 


023431 
025116 


023462 
025110 


024363 


024363 


024363 


024363 


024430 


024430 


024430 


024430 


024430 


024430 


024430 


024430 


024363 


024363 


024326 


024326 


025046 


0247206 


024720 


024720 


024736 


024736 


024736 


024736 


025002 


025002 


025002 


025002 


024720 


025046 


025064 


025076 


MACY11 306(1063) 


ERROR POINTER TABLE 
sERR 60 


sERR 


sERR 


sERR 


s ERR 


sERR 


ERR 


sERR 


sERR 


ERR 


ERR 


7 ERR 


sERR 


ERR 


sERR 


sERR 


61 


62 


63 


64 


65 


66 


67 


70 


71 


72 


73 


4 


75 


76 


77 


EM30,DH6,0114,DF 


EM40,DH6,D19,DF 


EM41,DH6,D019,DF 


EM42 ,DH6,D19,DF 


EM43,9H7,D0110,DF1 


EM43,DH7,D110,D0F1 


EM45 ,DH7,D110,DF1 


EM45,DH7,0110,DF1 


EM47,0H7,D112,DF 1 


EM47,DH7,0112,DF1 


EM49,DH7,0112,DF1 


EM49,DH7,DT12,0F1 


EM51,0H6,019,DF 


EMS2,0H6,0114,DF 


EMS3,DH5,D115,DF 


EM53,DH5,D116,DF 


Dd 
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SEQ 0029 


CVKDAC 
CVKDAC 


Pl) 


002240 
002246 


002250 
092256 


002260 
002266 


002270 
002276 


002300 
002306 


G02310 
002316 


002320 
002326 


002330 
002336 


002340 
002346 


002350 
002356 


002360 
002366 


002370 
002576 


002400 
002406 


002410 
002416 


092420 
002426 


002430 
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023616 
000000 


023653 
000000 


023710 
025116 


023731 
025126 


023752 
000000 


024010 
025116 


024031 
025126 


024052 
000000 


023506 
025110 


023506 
025110 


023506 
025110 


022551 


024363 


024363 


024363 


024363 


000000 


000000 


024430 


024517 


000000 


024430 


024517 


000000 


024363 


024363 


024363 


024363 


EXERCISER 
U2 


025046 


025046 


025046 


025046 


000000 


000000 


024736 


024760 


000000 


025002 


025024 


000000 


025046 


025046 


025046 


025046 
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; ERRORS FOR COPY UTILITY 


sERR 100 
EM13,0H6,D114,DF 


sERR 101 
EM17,DH6,0114,DF 


sERR 102 
EMS4 ,DH6,D114,DF 


sERR 103 
EM19,DH6,D114,DF 
;BAD SECTOR/TRACK TABLE FULL ERRORS 


sERR 104 
—M55,0,0,0 


sERR 105 
EM56,0,0,0 
CRC ERRORS 


sERR 106 
EMS7,DH7,0110,DF1 


sERR 107 
EM58,0H8,D111,DF2 


sERR 110 
EM59,0,0,0 
1 
EM60,DH7,0112,DF1 
12 
EM61,D0H8,0113,DF2 
13 
EmMé2,0,0,0 
114 
EM52,DH6,D114,DF 
15 
EM52,DH6,D114,DF 


116 
EM52,0H6,0114,DF 


17 
EM30,DH6,D114,DF 


SEQ 0030 


| 
ed 
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1477 0024636 025110 

1478 sERR 120 

1479 002440 922562 024363 025046 EM31,0H6,0114,DF 

1480 002446 025110 

1481 sERR 121 

1482 002450 022551 024363 025046 EM30,DH6,0114,DF 

1483 002456 625119 son tie 

1485 002460 022562 024363 025046 © EM31,DH6,0114,DF 

1486 002466 025110 cele 

1488 002470 022 024363 025046 EM31,0H6,0114,DF 

1489 002476 025 
3 
5 


1491 002500 02 
1492 002506 02 


1494 002510 02350 
1495 002516 02511 


124 
024363 025046 EMS2,DH6,0114,DF 


125 
024363 025046 EMS2,DH6,0114,D 


1498 sEIS FIS ERRORS 


1501 sERR 126 
1502 002520 024110 024170 024606 EM63,DH1,D011,DF 
1503 002526 02511 son tae 


1505 002530 0246145 024170 024606 EM64 ,DH1,D11,DF 
1506 002536 02511 
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1508 pp eteereetererrerereeererereeeeereererereererketetenerenereeeeeeee 
1509 sREGISTERS & BUFFERS FOR DxXO TESTS 

1910 ppeeeeerererrererererereerererererereneenererereereReereneeeetees 

1511 

1512 002540 000000 DOPAT: 0 :0X0 PATT TEST DONE FLAG 

1513 002542 000000 DOCNT: 0O 30X0 RANDOM SEEK COUNTER 

1514 002544 000009 DOERR 0 :Dx0 RCSR ERR COUNTER 

1515 002546 900000 DOTRK: 0 :0x0 TRACK 

1516 002550 000000 DOSEC: 0 :0xX0 SECTOR 

1517 002552 000000 DOCMER: 0 :DX0 DATA COMPARE ERROR FLAG 

1518 002554 00000 DOCERR: 0 ;Dx0 TOTAL DATA COMP ERROR CT 

1519 002556 000000 DOEXP: 0 :DX0 EXPECTED DATA 

1520 002560 000000 DOREC: 0 :DXO0 RECEIVED DATA 

1521 002562 000000 DOCRC: 0 :Dx0 CRC ERROR FLAG 

1522 002564 000190 DOBUF: .BLKW 100 3DX0 DATA BUFFER 

+4 ty 002764 000012 DOBAD: .BLKW 10. :DX0 BAD TRK/SEC TABLE 

1525 

1526 Pp eteeeeerererereterereteetetereeeKeeteteekeeeKeeeeKKenerereneeee 

1527 sREGISTERS & BUFFERS FOR DX1 TESTS 

1528 ppeteeeretererererrereeereereereeeeeeeeeeeKeeeeteReeeeeeeeneees 

1529 

1530 603010 000000 DIPAT: 0O :0X1 PATT TEST DONE FLAG 

1531 003012 000000 DICNT: 0O 3DX1 RANDOM SEEK COUNTER 

1532 003014 000000 DIERR: 0 3DX1 RCSR ERR COUNTER 

1533 003016 000000 DITRK: O 30X1 TRACK 

1534 003020 000000 DISEC: 0 ;0X1 SECTOR 

1535 003022 000000 DICMER: 0 30X1 DATA COMPARE ERROR FLAG 

1536 003024 000000 DICERR: 0 3DX1 TOTAL DATA COMPARE ERROR CT 

1537 003026 000000 DIEXP: O :0X1 EXPECTED DATA 

1538 003030 000000 DIREC: 0O 7DX1 RECEIVED DATA 

1539 003032 000000 DICRC: O 7DX1 CRC ERROR FLAG 

1540 003034 000100 DIBUF: .BLKW 100 3DX1 DATA BUFFER 

+ ot 003254 000012 DIBAD: .BLKW 10. 30X1 BAD TRK/SEC TABLE 

54 

1543 003260 000000 DXTST: O 31 = DATA PATT TEST 

1544 32 = RANDOM SEEK TEST 

1545 73 = INITIALIZE TEST 

1546 34 = RESTORE TEST 

1547 35 = WRITE DELETED DATA TEST 

+ 9 | 76 = INVALID ADDRESS TEST 
4 

1550 003262 000000 FIN: 0 ;COMMON FLG FOR DXO & DX1 FOR TRK/SEC FINISHED 

1551 003264 000000 MAXTRK: 0 ;MAX TRACK @ 

1552 70 FOR 1°ST PASS, 114 FOR SUBSEQUENT PASSES. SET AT START. 

1553 003266 000000 MAXSK: 0 :# OF RANDOM SEEKS TO BE PERFORMED. 

1554 710 FOR 1°ST PASS, 500 FOR SUBSEQUENT PASSES. SET AT EOP, 

1555 003270 000000 COPFLG: 0 ; 0 = NORM TEST 1 = COPY UTILITY ACTIVE 

1556 003272 000000 COMP1: 0 31 = COMPAT TESTS, PASS 1 

4434 003274 000000 COMP2: 0 si # PASS 2 
) 

1559 
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003276 
003302 


003304 


003310 
003314 


003350 
003354 
003360 
603364 
003370 


003376 


003420 


003424 


003424 


003440 


003444 


003466 


003474 
003500 


003530 


003532 
003534 
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905237 
000424 


005237 
005057 
000421 


005237 


005037 


012706 
042777 


106427 


005037 


012706 


003272 


003274 
003272 


003270 
003272 
003274 


000102 
000002 


003272 
003274 
005270 


001100 
000100 


000042 
001210 


000042 


001100 
001140 
001100 
aie 


027562 
000340 


000004 


003542 


000100 
000102 


175546 


004550 
006901 


000030 
000032 
000034 
000036 


000004 
001140 
001142 
175410 
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PROGRAM 


-SBTTL PROGRAM 


START: INC COMP 1 ;COMPAT PASS 1 
BR $1 
START2: INC COMP2 sCOMPAT PASS 2 
CLR COMP 1 
BR $2 
START3: INC COPFLG ;COPY UTILITY 
CLR COMP | 
CLR COMP2 
BR $3 
sNORMAL START AND RESTART 
START: MOV #CLKVEC*2 ,CLKVEC 7D0 RTI IF CLOCK INTERR 
MOV MRTI CLKVEC +2 
CLR COMP 1 ;NORMAL TESTING 
$1: CLR COMP2 
$2: CLR COPFLG 
$3: MOV MSTACK,SP ;SETUP STACK POINTER 
BIC #100,a$TKS sDISABLE ANY TTY INTERRUPTS 
:T0 RT-11 MONITOR 
sMTPS @PRS s;DISABLE INTERRUPTS 
-WORD 106427 
PR4 
MOV 42,HLD42 7 SAVE 
CMPB SENV,#1 s APT? 
BEQ 23 sBR IF YES 
" CLR 42 sELSE CLR SO WE CAN USE SOFTSWR 


~SBTTL INITIALIZE THE COMMON TAGS 
77 CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV #SCMTAG,RO :FIRST LOCATION TO BE CLEARED 
CLR (R6)+ ;:CLEAR MEMORY LOCATION 

CMP WSWR,RO ;; DONE? . 
ow -6 ;;LOOP BACK IF NO 


#STACK, SP 3:SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 
#SERROR ,AFEMTVEC ose VECTOR FOR ERROR ROUTINE 
nov #340, avEMTVEC+2 s7LEVEL 7 
MOV #STRAP as TRAPVEC TRAP VECTOR FOR TRAP CALLS 
MOV #340, ,a@TRAPVEC+2;LEVEL 7 
szSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘‘=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV Q#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 


MOV WO4$,QMERRVEC ;;SET UP ERROR VECTOR 

MOV #DSWR,SWR 7;SETUP FOR A HARDWARE SWICH REGISTER 

MOV WDDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 

CMP #-1,aSWR 7: TRY TO REFERENCE HARDWARE SwWR 

BNE 66% ::;BRANCH IF NO TIMEOUT TRAP Ot CURRED 
7:AND THE HARDWARE SWR 1S NOT = = 

BR 65% ;;BRANCH IF NO TIMEOUT 

64$: MOV #65$, (SP) 7;SET UP FOR TRAP RETURN 


SEQ 0055 


CVKDAC 


CVKDAC.P11 


003540 


003556 
003562 


003604 


003604 
003610 
003612 


st ots 


003656 


003726 
003726 
003732 


003734 
003740 
003742 
003746 


003750 
003756 


003764 
003770 


003774 
004002 
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005227 
001046 
104401 


005737 


112737 
000423 
005737 
001057 
005737 


000004 


001176 
000200 


001212 


177777 
003660 
000042 
001210 
001140 


000001 


003270 


003272 
003274 
000004 
000012 


027100 
027102 


000006 
000006 


001211 
001140 


000001 
000176 


001134 


003264 
003266 


1 3 
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MACY11 30G6(10 

INITIALIZE THE COMMON TAGS SEQ 0034 
RTi 

65$: MOV WSWREG, SWR ;;POINT TO SOFTWARE SwWR 


MOV #OISPREG,DISPLAY 
66$: MOV (SP)+,Q@#ERRVEC ;;RESTORE ERROR VECTOR 


CLR SPASS ;CLEAR PASS COUNT 

BITB #APTSIZE,SENVM SITEST USER SIZE UNDER APT 
BEQ 67% YES,USE NON-APT SWITCH 

MOV #SSWREG,SWR ::NO,USE APT SWITCH REGISTER 


67$: 
-SBTTL TYPE PROGRAM NAME 
>: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 


INC #-1 ssFIRST TIME? 
BNE 68s : SBRANCH IF NO 
TYPE 69% TYPE ASCIZ STRING 

.SBITL GET VALUE FOR SOFTWARE SWITCH REGISTER 
1ST aaG2 :;ARE WE RUNNING UNDER XXDP/ACT? 
BNE 70$ ::BRANCH IF YES 
CMPB ss SENV, #1 SZ ARE WE RUNNING UNDER APT? 
BEQ 70$ ::BRANCH IF YES 
CMP SWR, #SWREG S: SOFTWARE SWITCH REG SELECTED? 
BNE 71$ BRANCH IF NO 
GISuR te S:GET SOFT-SWR SETTINGS 

708: MOVB #1, SAUTOB :;SET AUTO-MODE INDICATOR 

"BR 68$ <GET OVER THE ASCIZ 
530988 “ASCIZ <CRLF>*CVKDAC PDT-11/150 SYSTEM EXERCISER*<CRLF> 
‘ TST COPFLG :COPY UTILITY? 

BNE LOOP ‘BR IF YES 
1ST COMP1 :COMPAT PASS 1? 
BNE LOOP :BR IF YES 
TST COMP2 “COMPAT PASS 2? 
BNE LOOP ‘BR IF YES 
MOV #4, MAXTRK STRK 0-4, 460-44, 72-76(10) FOR 1°ST PASS 
MOV #10. ,MAXSK >10 RANDOM SEEKS FOR 1'ST PASS 
CLR TERR :TOTAL ERR CT 
CLR TSERR “TOTAL SOFT ERR CT FOR EOP TYPEOUT 
BIS #<RTS!DTR>, AMRC 
BIC #<RTS'DIR>.AMRC ;DTR MUST BE TOGGLED. 


CVKDAC 
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1662 004010 


1666 004026 


1668 004030 
1669 004034 


1676 004070 


1679 004072 
1681 004676 
1683 604102 
1684 004104 
1687 004112 
1688 004114 
1690 004116 


1693 004124 


1695 004130 
1696 004134 


1698 004140 


1700 004144 
1701 004150 
1702 004152 
1703 004156 


1705 004160 
1706 004166 


1708 004172 
09 004176 
+f 004200 
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000000 


012706 
004737 
000005 
042737 
106427 
000000 
052737 


004737 


065037 
005037 


004737 
065737 


001405 


012737 
000137 


005737 
001402 
000137 


177777 
001210 


011349 
001210 


001000 
000400 
020365 


001100 
012622 


000100 


000006 


012622 


027104 
027106 


012720 
003272 
003274 
000114 
007246 
003270 
017410 


000001 


000001 
001246 
001246 


177546 


176610 


003264 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


INC #-) :1°ST TIME? 
BNE 4% :BR IF NO 
CMPB SENV,#1 ; APT? 
BEQ 4$ :BR IF YES 
GTDEVM ;SHOW CURRENT DEVM & GET NEW 
4$: JSR PC,SIZE ;SEE WHO IS ON THE SYSTEM 
CMPB SENV,#1 ;ARE WE RUNNING UNDER APT? 
BEQ LOOP 7BR ¥ YES & DONT HALT 
BIT #1000, $DEVM :DX0 THERE? 
BEQ 1$ :BR IF YES 
BIT #400,$DEVM 30X1 THERE? 
BNE LOOP :BR IF NO 
1$: TYPE WARNING SINSERT SCRATCH DISKS 
HALT 
LOOP: MOV #1100,SP ;LOOP HERE AFTER EOP & RESET STACK 
JSR PC, TIMER ; TIMER TO ALLOW 'P* TO PRINT BEFORE RESET 
RESET ;CLEAR ALL INTERRUPT ENABLES 
BIC WIE,CLK sRESET SETS CLK JE. DONT ALLOW YET 
;MTPS = #PRO ;ALLOW INTERRUPTS 


WORD 106427 
PRO 


BIS M<RTS!DTR>,AMRC ;T0 CONDITION ALL TERMINALS & 


:COMM PORT TO OPERATE IN EXT LOOPBACK MODE. 


;NO HARM IF LOOPBACK NOT USED. 


JSR PC, TIMER ; TIMER TO ALLOW PREV XFERS TO FINISH 
CLR PERR PASS ERR COUNT FOR EOP TYPEOUT 
CLR PSERR ;PASS SOFT ERR COUNT FOR EOP TYPEOUT 
JSR PC,CLRBAD ;CLEAR BAD SECTOR/TRACK TABLES 
TST COMP 1 ;COMPAT PASS 1? 
BNE 1$ :BR IF YES 
TST COMP2 ;COMPAT PASS 2? 
BEQ 2% :BR IF NO 
1$: MOV #114, ,MAXTRK 
JMP DXTST1 ; COMPATABILITY TESTING 
2$: TST COPFLG :COPY UTILITY? 
BEQ MEMTST ;BR IF NO...NORMAL TESTING 
JMP COPY ELSE GO COPY 


SEQ 0035 


a 
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CVKDAC.P11 1O-FEB-79 11:12 PROGRAM SEQ 0036 


-SBTTL PROGRAM 


;, eeteeeerererrereetereerreerereeerteerekeReteeetetrenerereeeeeeee 


MEMORY TESTS 


; 1. MEMORY FROM 0 TO THE LAST LOC OF PROGRAM (LSTAD) IS TESTED FOR TIMEOUT. 

; 2. MEMORY FROM "LSTAD' TO THE BOTTOM OF THE RT-11/XXDP MONITOR 

; 1S TESTED BY A PASS OF A 125252 PATT FOLLOWED BY A PASS OF 052525 PATTERN. 
; 3. MEMORY FROM 'LSTAD’ TO THE BOTTOM OF THE RT-11/XXDP MONITOR 

: 1S FIRST WRITTEN WITH ITS ADDRESS AS DATA THEN READ BACK & VERIFIED. 


s,eeereererererereeeererereneeeeetereeeeeeeeeeekeKeeeeeeeeeeeeeee 


004204 004737 012136 MEMTST: JSR PC ,EXAMKB 

004210 012737 013176 000004 MOV WINTSRV,ERRVEC ;SETUP TIMEOUT TRAP ADDR 

004216 012737 000200 000006 MCV #200 ,ERRVEC+2 

004224 013703 012022 MOV MAXMEM,R3 

004230 162703 00000C SUB #0,R3 TEST ONLY AS FAR AS XXDP MONITOR IF NOT RT-11 


;WHEN XXDP AVAIL. SUBSTRACT 1.5K (10) 


p,eeeeeeeeeeeeeerereeeeeeeeeeeeeeeeeeeKeeKeeKeKetKeeRHeeReAKeeeee 


: TEST FOR TIMEOUT FROM 0 TO "LSTAD' 


;,eeeeeaereeeerererekeeeeeeeeeeeeeeeeeeeeeeKeReKeeteeeeKereeeeeee 


SN NNN NS NS NSN NN NS NSN NS SS NS SS 


PEA AAI AIA WAAAY RIPPIN PD ot os ss Ss ss ws 


et el ee he el ee ee ee ee el ee 
WN SO OONOUNEWN =O OCONAYVSWN HOODOO UEWr 


7 004234 005004 CLR R4 :ADDR POINTER 

7 004236 005037 013204 1$: CLR INTFLG 

7 004242 005714 TST (R4) ;TEST LOCS 0 THRU END OF PGM. 
7 004244 005737 013204 TST INTFLG ; TIMEOUT? 

740 004250 001403 BEQ 2$ :BR IF NO 

741 004252 010437 004546 MOV R4, ADDR FOR ERR TYP 

742 004256 104001 ERROR 1 ; TIMEOUT ON READ 

743 004260 005724 2$: TST (R4)+ ;BUMP ADDR 

744 004262 020427 027744 CMP R4,#LSTAD :AT END? 

1745 004266 001363 BNE 1$ :BR IF NO 


“J 
= 
o 
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1765 004350 
1767 004352 


1775 004376 


81 004400 


004404 
004406 
004410 
004414 


eaan 
LEAF 


“N 


88 
1789 004416 


1795 004442 


1797 004444 
1798 004446 
1799 004452 


1801 004454 
004462 
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005005 
012737 
012704 


005037 


104003 
005724 
004737 
000751 


005705 


000740 


012704 
010414 


000773 


012704 


104005 


005724 
004737 
000763 


012737 
005037 


125252 
027744 


004546 


004542 
004542 


004546 


004510 


052525 


027744 


004519 


027744 


004546 
004544 
004542 


604510 


000006 
000006 


004544 


004544 


004544 


000004 


a | 
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PROGRAM SEQ 0057 


sp etererrererrrrerererrrreeeteeeeeeeeeeeeeeeeereeeeeeieeeeeeeeeee 


; TEST READ/WRITE PATTERNS FROM "LSTAD' TO BOTTOM OF MONITOR 


;,etereeerererererereerrerereeeererererekeeeeeeeteeeeeneeeteeeeees 


8$: 
3$: 


4$: 


6$: 


R5 ;PASS CIR 
Abts tof “ge sDATA PATT FOR 1°ST PASS 
WLSTA ;ADDR POINTER. R/W LOCS LSTAD THRU 

;BOT OF RT11 OR BOT OF ABS LOADER 

INTFLG 
PAT, (R4) sWRITE 

INTFLG 3: TIMEOUT? 
4$ :BR IF NO 
R4,ADDR sFOR ERR TYP 

s TIMEOUT ON WRITE 

(R4) ,MEMHLD ;READ 
amas: ; COMPARE 
R4,ADDR sFOR ERR TYP 

3 ; COMPARE ERROR 

(R4)+ ;BUMP POINTER 
PC,BOTMON ;SEE IF AT BOTTOM OF MONITOR 
3$ ;RET HERE IF NO 
R5 sELSE HERE 
9$ 
RS 
#052525,PAT ;DATA PATT FOR 2'ND PASS 
8$ sREPEAT 


peeeeereeeeeeeeeeeeeeeeeeeereeeeeeerekkeeekeekeeekeeeeKeeeeteees 


: ADDRESS TEST. WRITE EACH LOC. WITH ITS ADDR. AS DATA. THEN VERIFY. 


pete eareeeereereeeeeeeeeteerreereeeteReeekeeeKeeeeeeneeteeeneeee 


9$: 


10$: 


118: 


128: 


MOV 





#LSTAD,R4 ;ADDR REG 
R4,(R4) ;LOAD ADDR AS DATA 
(R4)+ BUMP ADDR 
PC. BOTMON ;SEE IF AT BOT OF MON 
10$ RET HERE IF NO 
; VERIFY PASS 

#LSTAD,R4 

R4,(R4) ;READ & CHECK 

12% :BR IF OK 

R4, ADDR 

R4,PAT 

(R4) ,MEMHLD 

5 ;M1SCOMPARE 

(R4)+ ;BUMP ADDR 

PC ,BOTMON ;SEE IF AT BOT OF MON 
11$ ;RET HERE IF NO 
WERRVEC+2,ERRVEC sRESTORE TIMEOUT VECTOR 
ERRVEC+2 
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004506 
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032777 
001426 
104401 
104401 
000421 


010000 


020776 
021011 


174444 


nh 3 
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PROGRAM 


#BIT12,aSwr 
EISFIS 
- MEMORY 


,DUN 
EISFIS 


SKIP TYPEOUT IF NOT SET 


SEQ 0038 
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CVKDAC .P11 16-FEB-79 11:12 PROGRAM SEQ 0039 


1810 peeereererrereerrrerererereerererereeeeerereneneeeereeeeeererete 
1811 ROUT INE TO DETERMINE IF AT BOTTOM OF RT-11 OR XXDP MONITOR 

1812 peeereereererreeeeererertreeerereeeerereeereeeeereeereeeeererete 

1813 

1814 004510 023727 004550 001000 BOTMON: CMP HLD42 #1000 sRT-11 IF LOC 42 = 1000 

1815 004516 001403 BEQ 1$ :BR IF RT-11 

1816 004520 020463 CMP R4,RS sELSE AT BOT OF XXDP MON? 

1817 004522 001006 BNE 3% ZBR IF NO 

+H 004524 000403 BR 2s 

1820 004526 020437 000054 1$: CMP R4,54 ;LOC 54 CONTAINS LOW ADDR OF RT-11 MON. 
1821 004532 001002 BNE 3$ ;BR IF NOI THERE 

1822 004534 062716 000002 23: ADD #2, (SP) sRET+2 IF Al END 

4 004540 000207 3$: RTS PC 

1825 004542 000000 MEMHLD: 0 ;PUT MEMORY READ HERE 

1826 004544 000000 PAT: 0 ;PATT TO BE WRITTEN & READ 

1827 004546 000000 ADDR: 0 ;ADDR UNDER TEST 

1828 004550 000000 HLD42: 0 ;SAVE LOC 42 


CvKDAC 


CVKDAC.P11 


ee ee ee ee ee 
Co C9 08 C9 C9 Od CD CD CD 
Ww 
uw 


fo] 
™ 
oO 


1841 


004552 
004560 
004564 
004566 
004574 
004576 


004602 


004614 


004620 
004622 


004640 


004642 


004662 


004664 


004702 


004704 


004730 
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012737 


000137 


012702 


072227 
100403 


104127 


012701 


104127 


012700 


104126 


012700 
000241 
072027 
103401 
104126 
020027 
001401 
104127 


001750 
012012 
000100 
005446 


125252 


000901 


052524 


052525 


177777 
025252 


000001 
000020 


100000 
177760 


177777 


005424 


001246 


B 4 
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PROGRAM 


--@eneererrererrererrerrerrererereeeteeneeekeneteeterereeeeeeeerere 


x EIS/FIS TEST SECTION 
EiSFIS: Mov #1000.,E1SCNT ;LOAD EXECUTION LOOP COUNTER 


TST EIPRES cs TEST IF SIZER — EIS-F1S PRESENT 
BEG 1$ :BR 1F NOT PR 
BIT #B116,$DEVM TEST IF EIS/FIS IS ENABLED 
BEQ ASHI :BR It 
1$: JMP NOE IS sBYPASS THIS SECTION - NOT SELECTED 


PETIIIIITITITITITITTIIITTITTITIITTTIT TILT TI TTT TTT TTL TTT i rt 


; TEST ASH LEFT INSTRUCTION 


SERA AAAAERH Eee ATH eee eee K AeA eeKKeKeKeKAeKeKeKeeeKeeKeeeeee 


ASH]: MOV #125252,R2 ;LOAD VALUE TO BE SH!FTED 

ccc :CLEAR CONDITION CODES 

SEZ ET ; B 

SEN ISETN B 

ASH #1,R2 ae 1, RESULT = 52524 

:N=0, =U, V= “ 

BMI 1$ :1F N SET, REPORT ERROR 

BEQ 1$ :1f Z SET, REPORT ERROR 

BvCc 1$ :1F V = 0, REPORT ERROR 

BCS 2$ :1F C SET, GO ON WITH TEST 
1$: ERROR 126 ; INCORRECT CONDITION CODES FOR ‘’ASH LEFT" 
2$: CMP #52524 ,R2 RESULT CORRECT ? 

BEQ ASH2 BR IF OK 

ERROR 127 ; INCORRECT DATA FOR "ASH LEFI"’ 


PITITITITITITIITITITITIT TTI TILIT TTT TTL 


:TEST ASH RIGHT INSTRUCTION 


PERRET KERAT EKA EAAAAEERAAAKEEKeEKAKKeKKeeHKeKeKekteeeereKrKeKeeeee 


;LOAD VALUE TO BE SHIFTED 


ASH2: MOV #52525,R1 


ccc CLEAR CONDITION CODES 

ASH #-1,R1 SHIFT RIGHT 1, RESULT = 25252 
CMP #25252,R1 ;RESULT CORRECT ? 

BEQ ASH3 :BR IF OK 

ERROR 127 ; INCORRECT DATA FOR ‘‘ASH RIGHT" 


seeeeerenrerteereerererereetereetreteenteeeeeeteneeeerereeeeenes 


‘TEST ASH LEFT SHIFT 000001 BY 16 SETS C. 


'MABBRBBAARARABRASRASBAASASAASLASSAASARRASASARR SERRE RSA RRR ARERR SARS SES SS 


ASH3: MOV #1,R0 ;LOAD VALUE TO BE SHIFTED 
:CLEAR C 


CLC BIT 
ASH #16.,R0 i SHIFT ae 16 TIMES 
BCC 1$ :BR IF ERR 
BEQ ASH4 :BR IF DATA. CORRECT 
1$: ERROR 126 INCORRECT CONDITION CODES FOR “ASH LEFT" 


,,eeeeeeeeee eee eee eee eee eee eee eee eke eKeKeeeeeKeRReeeeete 


“TEST ASH RIGHT SHIFT 100000 BY 16 SETS C. 


sp eteeterererereetenreeeeeeeeeeete tere Kee eRe eee eee 


ASH4: MOV #100000 ,R0 ;LOAD VALUE TO BE SHIFTED 

CLC ;CLEAR C BIT 

ASH #-16.,R0 : SHIFT hye 16 TIMES 

BCS 1$ ;BR IF NO ERROR 

ERROR 126 HINCORREC _fonoi tion CODE FOR “‘ASH RIGHT" 
1$: CMP RO,#177777 CHECK DAT 

BEQ ASHC1 :BR IF OK 

CxROR 127 S INCORRECT DATA FOR "ASH RIGHT" 


SEQ 0040 
ESENT 
YES 
IT 
IT 
0, v=i, C=1 
: E 


C 4 
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CVKDAC.P11 16-FEB-79 11:12 PROGRAM SEQ 0041 
1884 
1885 spteeeererererrrerrrerererereeereeeeerteeeeeeeteeeeeeeeeeeneretee 
1886 TEST ASHC LEFT INSTRUCTION 
1887 steerer ererertrterrererereeeretrerereeeeeeteneneeReneeeeeeeeeere 
1888 004732 005002 ASHCI: CLR R2 sCLEAR MSW REGISTER 
1889 004734 012703 125252 MOV #125252,R3 LOAD VALUE TO BE SHIFTED 
1890 004740 000257 CCC ;CLEAR CONDITION CODES 
1891 004742 000264 SEZ 7SET Z BIT 
1892 004744 000261 SEC sSET C BIT 
1893 004746 073227 000020 ASHC #16.,R2 sSHIFT LEFT R3 INTO 7: 
1894 RESULT: N=1,2=0,Vv=1,C=0 
1895 004752 100003 BPL 1$ ;1F N= 0, REPORT ERROR 
1896 004754 001402 BEQ 1$ :1f 2 SET, REPORT ERROR 
1897 004756 102001 Bvc 1$ :1f v = 0, REPORT ERROR 
1898 004760 103001 BCC 2% s1f C = 0, OK 
1899 004762 104126 1$: ERROR 126 ; INCOR RECT CONDITION CODE FOR ASHC LEFT 
1900 004764 022702 125252 23: CMP #125252,R2 :R2 OK 
1901 004770 001401 EQ 3$ ;BR IF CORRECT 
1902 004772 104127 ERROR 127 ; INCORRECT DATA FOR ‘’ASHC LEFT" 
1905 004774 005703 3$ TST R3 R3 OK 
1904 004776 001401 BEQ ASHC2 ‘BR IF CORRECT 
1995 005000 104127 ERROR 127 ; INCORRECT DATA FOR “‘ASHC LEFT’ 
1907 Sp eeeeweeeeeee eee eee rere reer tere eee eee KA KeKeeeeKeteeKeeKAee 
1908 ; TEST ASHC RIGHT INSTRUCTION 
1909 PPTTIITITITITITITITIIITITT EL TLLTL LLL TLL i i 
1910 005002 005003 ASHC2: CLR R3 :CLEAR MSW REGISTER 
1911 005004 012702 125252 MOV #125252,R2 ;LOAD VALUE TO BE SHIFTED 
1912 005010 000257 ccc :CLEAR CONDITION CODES 
1913 005012 000264 SEZ :SET Z BIT 
1914 005014 000262 SEV :SET V BIT 
1915 005016 000261 SEC :SET C BIT 
1916 005020 073227 177760 ASHC #-16.,R2 SHIFT RIGHT 16 PLACES 
1917 ;RESULT: N=1,2=v=C=0 
1918 005024 1060002 BPL 1$ IF ON =0, REPORT ERROR 
1919 005026 101401 BLOS 1$ ay OR Z SET, REPORT ERROR 
1920 005030 102001 BVC 2$ :1F V = 0, GO ON WITH TEST . 
1921 005032 104126 1$: ERROR 126 S INCORRECT CONDITION CODES FOR ‘‘ASHC RIGHT 
1922 005034 022702 177777 2$: CMP #-1,R2 TEST R2 
1923 005040 001401 BEQ 3$ ;BR IF CORRECT z 
1924 005042 104127 ERROR 127 s INCORRECT DATA FOR ‘‘ASHC RIGHT 
1925 005044 022703 125252 3$: CMP #125252,R3 :TEST R2 TO R3 SHIFT 
1926 005050 001401 BEQ ASHCS ;BR IF CORRECT bs 
1927 005052 104127 ERROR 127 s INCORRECT DATA FOR “‘ASHC RIGHT 


dD 4 
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CVKDAC.P11 16-FEB-79 11:12 PROGRAM SED 0042 
1928 seereeeerereeererererereeeteetereereeeteereneeeeneeneeeeReTeres 
1929 HTEST ASHC LEFT SHIFT 00000,0002 BY 31 SETS C. 
1930 co ma oe te aaaek tae eae 
1931 005054 005000 ASHC3: CLR sCLEAR MSW REGISTER 
1932 005056 012701 000002 MOV #0 R1 LOAD VALUE TO BE SHIFTED 
1933 005062 073027 000037 ASHC #31. .RO LEFT SHIFT 0002 BY 31. 
1934 005066 1030061 BCC :BR IF C BIT CLEARED 
1935 005070 001401 BEQ ASHCG BR IF RESULT 
aes 005072 104126 1$: ERROR 126 ; INCORRECT CONDITION CODE FOR ‘‘ASHC LEFT’ 
19 
1950 Sp eeeeeeeereeeeeeeteeetereereeeereLeKKteeeKeKreteKeeeeAeeRee 
1940 TEST ASHC RIGHT SHIFT 100000,00000 By 32 SETS C. 
1941 ppeeeeeeeeererrereerererereeteereeeeeKeeKeReReeeeeeeeeeeeeeeeee 
1942 005074 012700 100000 ASHS4: MOV #100000 ,R0 ;LOAD VALUE TO BE SHIFTED 
1943 005100 005001 CLR R1 ;CLEAR LSW REGISTER 
1944 005102 073027 000040 ASHC #32.,R0 ;SHIFT RIGHT BY 32. 
1945 005106 103001 BCC 1$ :BR IF C BIT CLEARED 
1946 005110 100401 BMI 2$ ;BR IF N BIT SET 
1947 005112 104126 1$: ERROR 126 ; INCORRECT CONDITION CODE FOR ‘‘ASHC RIGHT’ 
1948 005114 022701 177777 2$: CMP #-1,R1 : CHECK LOW ORDER RESULT 
1949 005120 001003 BNE 3$ ;BR IF IN ERROR 
1950 005122 022700 177777 CMP #-1,R0 > CHECK HIGH ORDER RESULT 
1951 005126 001401 BEQ MULO ;BR IF CORRECT 
1952 005130 104127 3$: ERROR 127 ; INCORRECT DATA FOR ‘'ASHC RIGHT’ 


CVKDAC 
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005170 


005172 


005234 
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012700 


104127 


012701 
012700 


104127 


125252 
040000 


165252 
100000 


152525 
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PROGRAM 


,terereerrrrererererererrrerereeereeerereeeeeeeetererereeeeneeee 


Test MUL INSTRUCTION 


;etereeerererrerererrererereeeereeeteeeeeeeeeeeereteeeeereeeenes 


A esp 165252,100000 


MULO: #125252 ,R0 +t MUL TIPLICAND 
MUL — RO 1:R0=40000*125252 
BPL ‘BR IF N BIT ERROR 
BVS I$ :BR IF V BIT ERROR 
BEQ 1$ :BR IF Z BIT ERROR 
BCS 2$ :BR IF C BIT CORRECT 
1$: ERROR 126 ; INCORRECT CONDITION CODE FOR ‘MUL"’ 
2$: ed #165252,R0 MICH 7 RESULT OK ? 
CMP #100000,R1 : LOW 7 oa RESULT OK? 
BEQ Divo :BR It 
3$: ERROR 127 INCORRECT DATA FOR ‘MUL"’ 


; ,eeeeeeeeeeeeeeeeteeeeereeeeeeeeeeeeeeeKeeeeeeeeKeteeeeeereeetes 


TEST DIV INSTRUCTION 


; ,eeeeeeereeeereeeteee rete eeeeeeteeeeeeeKeKeeeeeKeeeteeeeeeeeee 


DivO: MOV #125252,R1 ;LOAD LOW ORDER DIVIDEND 
MOV #-1,R0 7 HIGH T aT 
SEC :SET C B 01 
DIV #2,R0 3R1:RO= 77777, L$ Sad 
BCS 1$ :BR IF C BIT ERRO 
BVS 1$ :BR IF V BIT ERROR 
BEQ 1$ BR IF Z BIT ERROR 
BM] 2$ ;BR IF N BIT OK 
1$: ERROR 126 : INCORRECT DONDITION CODE FOR ‘‘DIv"’ 
2$: TST R1 ;CHECK LOW ORDER RESULT 
BNE 3$ :BR IF ERROR 
CMP RO,#152525 ;CHECK HIGH ORDER RESULT 
BEQ FIS BR IF OK 
3$: ERROR 127 ; INCORRECT DATA FOR ‘‘DIv"’ 


SEQ 0043 


chet di 
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005236 


005424 
005426 


005446 
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Mrerrnrnnn 
~ 
r 
= 


Oe ed et at 
Nm 

~ 

= 

* 


oooooTcoco°oo 


Nm 
IN 
, 
~s 


000000 


032777 
001404 
104401 
104401 


027744 


040616 


005420 
005422 
027744 


1372901 


115230 


005424 
004602 


010000 


020757 
021011 


005420 


005422 


173504 


MACY11 306(1063) 
PROGRAM 


F 
16-FEB-79 


4 
11:13 PAGE 44 


,eeeeeereetereeeerererereeteeeeeeteretereneeeeeeenereererereneee 


fest ALL FLOATING INSTRUCTIONS TOGETHER 


134343,107070 + 032107,065432 « 


045670, 123456 


(135252,125252 = 040616,016161) 


-eeeeereccecrncerereeccecerercecrereenerecereereceeeceereeeeeere 


;LOAD R4& STACK POINTER 
:LOAD DATA ONTO STACK 


sSET 2 BIT 


252-040616,016161=140616,017434 
456/140616,017434=145246,047065 
432*145246,047065=137201, 106137 
070+137201,106137=137201,115230 
IF C SET, REPORT ERROR 
IF V SET, REPORT ERROR 
IF Z SET, REPORT ERROR 
:BR IF N SET, DO NEX1 TEST 


SEQ 0044 


; INCORRECT CONDITION CODE AFTER ‘FADD, FSUB,FMUL.FDIV" 


SAVE FIRST HALF OF THE ANSWER 
;SAVE 2ND HALF 
;CHECK R4& STACK POINTER 
:BR IF CORRECT 
; INCORRECT STACK POINTER VALUE 

TEST 1ST HALF OF RESULT 

;BR IF CORRECT 

; INCORRECT DATA FROM A ee INSTRUCTION" 
:TEST 2ND HALF OF RESUL 

:BR IF CORRECT 
: INCORRECT DATA FORM A "'FIS INSTRUCTION” 
FINISHED THE # OF EXECUTION LOOPS ? 

BR IF FINISHED 

;LOOP UNTIL DONE 


:SKIP_ TYPEOQUT IF NOT SET 

;BR IF CLEARED 

sREPORT EIS/FIS TESTING COMPLETED 
;REPORT “‘DONE*' 


THE RESULT = 137201,115230 
i3* MOV MLSTAD,R4 

MOV #107070, -(R4) 
MOV #134343,-(R4) 
MOV #065432,-(R4) 
POV #032107,-(R4) 
MOV #123456,-(R4) 
MOV #045670,-(R4) 
MOV #125252,-(R4) 
MOV #135252,-(R4) 
MOV #016161,-(R4) 
MOV #040616,-(R4) 
ccc 
SEZ 
NOP 
F SUB R4 31352 
FOV RG 30456 
FMUL R4 30321 
FADD R4 21343 
BCS 1$ 
BvS 1$ 
BEQ 1$ 
BMI 2% 

1$: ERROR 126 

2$: MOV (R4)+,ANS1 
MOV (R4)+,ANS2 
CMP R4,#LSTAD 
BEQ 3$ 
ERROR 127 

3$: CMP #137201,ANS1 
BEQ 4$ 
ERROR 127 

4$: CMP #115230,ANS2 
BEQ 5$ 
ERROR 127 

5$: DEC EISCNT 
BEQ EISDON 
JMP ASH1 

ANS1: 0 

ANS2: 0 

EISCNT: 0 

EISDON: BIT #BITI2,aSwWR 
BEQ NOEIS 
TYPE »FISEIS 
TYPE ~DUN 

WOEIS: sTAG T0 


BYPASS THE EIS/FIS TEST SECTION 


et] 


CVKDAC 


CVKDAC.P11 


005446 


005476 
005504 


005516 
005520 


005534 


PDT11-150 At mang 


16-FEB-79 1 


104032 
000410 


032777 
001404 
104401 
104401 


000200 
013176 


000100 
012352 


010000 


020300 
020704 


001246 


000100 
000102 


177546 


173412 


G 4 
MACY11 306(1065) 16-FEB-79 11:13 PAGE 45 
PROGRAM 


-wetnetererrrrtrerievrrrerterrererereereerereereeeeeeeeneteeneteteteeee 


CLKTST: 


START LINE CLOCK 


-#erkerteretetererkererrrererererereeeeeeneteeteeeeeneteeeeteeenee 


Bll #B117,$DEVM ;DROP TEST? 

BNE PRIST :BR IF YES 

MOV WINTSRV,CLKVEC ;SETUP VECTOR AREA 
MOV #200,CLKVEC*+2 LOCKOUT OTHER INTER. 


CLR INTFLG 
BIS WIE,CLK ;SET CLOCK LOOSE! 
R5,TIMER ;SEE IF INTFLG GOES TO 100 
— 
ERROR 32 ;CLK NOT RESPONDING 
BR PRIST 
BIT #BITI2,aSWR ;SKIP TYPEOUT IF NOT SET 
BEQ PRIST 
TYPE »CLOCK 
TYPE RUN 


SEQ 0045 


CVKDAC 


CVKDAC. 


Pil 


005540 


005554 
005556 
005564 
005572 


005600 
005604 


005612 


005620 


005632 
005634 
005640 
005642 


005650 


005700 


PDT11-150 Pt) eset 


16-FEB-79 1 


000424 


005737 
001403 
042737 


032777 
001412 
104401 
005737 
001403 
104401 
000402 
104401 


100000 
012016 
027014 
013206 
000200 


013334 
000015 


00010¢ 


012352 


012020 
000100 
010000 


020240 
012020 


020251 
020704 


001246 


177420 
000200 
000202 
013332 


177514 


177514 
173262 


MACY11 306(1063) 
PROGRAM 


H 
16-FEB-79 


4 
1i:1 


3 PAGE 46 


,;eeeeerererrerteterererereeererereneteetekeeeeteeeeeretereeeteeene 


START PRINTER 


PRIST: 


23: 


3$: 


4$: 


#B1T15,SDEVM 
SATST 


PRPRES 
SMTST 


#<PRT!B9600! CHAR8> , PARAM 


#PRSRV,PRVEC 
#200,PRVEC+2 


LINCT 
#CR,PRCHR 


WIE,PRS 
R5,TIMER 
33 

SMTST 

* Yoagi 
WIE,PRS 
#B1112,aSWR 
SMTST 
ePRINT 
PRPORT 
4% 

-PORT 


SMTST 
»RUN 


Ss; terrae eerertarekererereeeererereeeeekeeeteneeeeeeetenerereneee 


DROP TEST? 
:BR IF YES 
PRINTER THERE? 
R IF NO 


sELSE SETUP PRINTER VECTOR 
;LOCKOUT INTERR 


CLEAR LINE CTR 
CHAR TO BE PRINTED 
:"DEL* (177) CAN BE USED TO CLR PRINTER BUFF 


;SET PRINTER LOOSE! 
WILL PRINT CONTINUOUS 132 COLUMN LINES 
;EA BEGINNING WITH ASCII 40 THRU 176 


:SEE IF LINCT GOES TO 5 


;PRINTER NOT RESPONDING 


EXT LOOPBACK MODE? 

:BR IF NO 

ELSE SHUT DOWN PRINTER 
:SKIP TYPEOUT IF NOT SET 


EXT LOOPBACK MODE? 
IF NO 


;SETUP BAUD RATE & CHAR LENGTH 


SEQ 0046 


1 4 
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PROGRAM 


CVKDAC.P11 16-FEB-79 11:12 SEQ 0047 
2102 
2103 ,, eeeeeeeerererrerrererererrerererererereteneeteeeeeneneneeeeeeteee 
2104 : START SYNC COMM PORT 
2105 soe eeeererererteeeeeeeererereeeeeeeeeeeeeeeeereeeeeeeeeeeeeeenene 
2106 
2107 005704 032737 002000 001246 SMIST: B11 #B11T10,$0EVM :DROP TEST? 
2108 005712 001462 BEQ 8% ;BR IF NO 
te 005714 000137 0061690 JMP AMTST sELSE JUMP TEST 
2111 005720 123727 001210 000001 8$: CMPB SENV,#1 sUNDER APT? 
2112 005726 001003 BNE 9% 7BR IF NO 
2113 005730 005737 001176 TST SPASS sELSE 1°ST PASS? 
the 005734 001111 BNE AMTST sEX1T TEST IF NO 
2116 005736 005037 014026 9$: CLR LSTCHR LAST CHAR FLAG FOR XMIT 
2117 005742 052737 000400 176624 BIS WAR, SMXC :MASTER RESET 
sie 005750 052737 004000 176624 BIS #MACLK,SMXC sMAINT CLOCK 
2120 005756 032737 000010 001246 BIT #B113,$DEVM sEXT LOOPBACK? 
2121 005764 001403 BEQ 1$ :BR IF YES 
2122 005766 052737 014000 176624 BIS A<MM'MCLK>,SMXC ;ELSE SET MAINT MODE FOR INT. LOOPBACK 
2123 005774 012737 007026 176622 18: MOV #<CHRB!ODDPAR!026>, SMPAR ;SETUP SYNC PARAMETER REGISTER 
2124 006002 052737 000026 176620 BIS #<RTS'DTIR!SRSYN>, SMRC sSET REQ TO SEND, DATA TERM RDY 
2125 78 SEARCH SYNC 
2126 006010 052737 000020 176624 BIS #SEND, SMXC sENABLE XMIT SEND 
sise 006016 012737 000026 176626 MOV #026,SMXB >XMI1T SYNC CHAR 
2129 006024 004537 012634 JSR RS, TIMER2 sWAIT FOR DONE 
2130 006030 176620 SMRC 
2131 006032 000200 DONE 
2132 006034 104045 ERROR 45 >NO DONE 
Hts 006036 000435 RR 5$ sEXIT 
2135 006040 013737 176622 013736 MOV SMRB,COMHLD sREAD wORD 
2136 006046 023727 013736 000026 CMP CGMHLD , #026 s1S 17 SYNC CHAR? 
2137 006054 001402 BEQ 4$ sBR IF YES 
2138 006056 104006 ERROR 6 ;DID NOT REC SYNC CHAR 
the 006060 000424 BR 5$ sEXIT 
2141 006062 004537 012326 4$: JSR R5,SETVEC ;SETUP VECTOR AREA 
2142 006066 000340 SMRVEC 
2143 006070 014030 SMRSRV 
2144 006072 013740 SMXSRV 


J 4 
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712 PROGRAM 


CVKDAC P11 T6-FEB-79 11 SEQ 0048 
2145 
2146 006074 012737 000027 013734 MOV #C27,COMCHR ;1°ST CHAR TO BE XMITTED 
2147 006102 052737 000100 176620 BIS WIE, SMRC :SET SYNC MODEM LOOSE! 
Stee 006110 052737 000100 176624 BIS WIE, SAXC 
2150 006116 004537 012352 JSR RS, TIMER ;SEE IF COMCHR GOES TO ALL 1°S (DONE) 
2151 006122 0137354 COMCHR 
2152 006124 177777 177777 
2153 006126 104037 ERROR 37 SYNC COMM NOT RESPONDING 
size 006130 000240 NOP 
2156 006132 012737 000400 176624 5$: MOV WAR ,SMXC MASTER RESET 
2157 006140 032777 010000 172772 BIT #BITI2,aSWR ;D0 TYPEOUT IF SET 
2158 006146 001404 BEQ AMTST sEXIT IF NOT 
2159 006150 104401 020211 TYPE .SCOM 
2160 006154 104401 021011 TYPE ,DUN 


K 4 
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CVKDAC.P11 16-FEB-79 1 712 PROGRAM SEQ 0049 
2161 
2162 .. -gtenrererererererrrerrtrrrerrterrrerererekereteeekeeeeeteeeneeeeee 
2163 : START ASYNC COMM PORT 
2164 eo -eeneeeeeererreererererereeeeeteeereeeeeeeeeeteaeetarenererereee 
2165 
2166 006160 032737 004000 001246 AMTST: B11 #B1T11,SD0EVM DROP TEST? 
sier 006166 001054 BNE CLITST :BR IF YES 
2169 006170 032737 000010 001246 BIT #B113,SDEVM sEXT LOOPBACK? 
2170 006176 001404 BEQ 1$ F YES 
2171 006200 012737 037036 177420 MOV #<AMOD !B9600!OPAR! CHARB!MAINT>, PARAM ELSE SET FOR INT LOOPBACK 
2172 006206 000403 BR 3$ 
2173 006210 012737 037034 177420 18: MOV #<AMOD!B9600!OPAR!CHAR8>,PARAM ;WAKE UP AMOD IF JUST DID SMOD 
oie 006216 052737 000006 176610 3$: BIS W<RTS!DTR>,AMRC ;SET REQ TO SEND & DATA TERM RDY 
2176 006224 004537 012326 JSR R5,SETVEC ;SETUP VECTOR AREA 
2177 006230 000330 AMRVEC 
2178 006232 013656 AMRSRV 
Hs 006234 013640 AMXSRV 
2181 006236 005037 013734 CLR COMCHR ;CHAR TO BE XMITTED 
2182 006242 013737 176612 013736 MOV AMRB , COMHLD CLR OUT ANY PREVIOUS STORED WORD 
2183 006250 052737 000100 176610 BIS #1E,AMRC SET ASYNC MODEM LOOSE! 
$iee 006256 052737 000100 176614 BIS WIE, AMXC 
2186 006264 004537 012352 R RS, TIMER ;SEE 1F COMCHR GOES TO 377 
2187 006270 013734 CH 
2188 006272 000377 77 
2189 006274 104040 ERROR 40 :ASYNC COMM NOT RESPONDING 
Stor 006276 000410 BR CLITST 
2192 006300 032777 010000 172632 BIT ath fe aSwR SKIP TYPEOUT IF NOT SET 
2193 006306 001404 BEQ CLIT 
2194 006310 104401 020224 TYPE ACOR. 
2195 006314 164401 020704 TYPE *RUN 
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CVKDAC.P11 16-FEB-79 11:12 PROGRAM SEQ 0050 
2196 
2197 aia gma aaa aaa tataatinalacie 
2198 ; START CLUSTER TERMINAL #1 
3h sp eteereeterterrerereererereerererterertenereReeneneereteeeerene 
2 
2201 006320 005737 012014 CLITST: TS1 CLPRES ;OPTION PRESENT? 
2202 006324 001062 BNE 1$ BR IF YES 
st 006326 000137 006774 JMP DXTSTO 
2205 006332 032737 004000 001246 1$: BIT #4000, $DEVM : DROP ASYNC? 
2206 006340 001406 BEQ 4% R IF NO 
2207 006342 042737 000006 176610 BIC #<RTS'DTR>,AMRC “MUST BE TOGGLED 
sss 006350 052737 000006 176610 BIS #<RTS'DTR>, AMRC PRIME IT 
2210 006356 032737 010000 001246 4$: BIT gD SDEVM :DROP TEST? 
Ht 006364 001051 BNE CL2TS 3;BR IF YES 
2213 006366 032737 000001 001246 BIT #B110,SDEVM ; TERM #1 SET FOR EXT LOOPBACK? 
2214 006374 001404 BEQ :B IF YES 
2215 006376 012737 005016 177420 MOV #<CT1!B2400! CHARS! MAINT>, PARAM ;ELSE SET FOR INT LOOPBACK 
2216 006404 000403 BR 
5H 006406 012737 005014 177420 2$: MOV #<C11!B2400! CHAR8>, PARAM ;SETUP FOR EXT LOOPBACK 
2219 006414 004537 012326 3$: JSR R5,SETVEC ;SETUP INTERR VECTORS 
2220 006420 0003500 TKIVEC 
2221 006422 013356 TKISRV 
31 006424 013340 TPISRV 
2224 006426 005037 013434 CLR TICHR ;CHAR TO BE XMITTED 
2225 006432 013737 176502 013436 MOV TK1B,TIHLD ;READ CHAR (CLEAR STALE DATA) 
2226 006440 052737 000100 176500 BIS WIE, TKIS ;SET CLUSTER TERM #1 LOOSE! 
sss. 006446 052737 000100 176504 BIS W1E,TPIS 
2229 006454 004537 012352 JSR RS,TIMER ;SEE IF TICHR GOES TO 377 
2230 006460 013434 TICHR 
2231 006462 000377 377 
2232 006464 104034 ERROR 34 ;CLUSTER TERM 1 NOT RESPONDING 
sser 006466 000410 BR CL2TST 
2235 006470 032777 010000 172442 BIT #B1T12,aSwWR sSKIP TYPEOUT IF NOT SET 
2236 006476 001404 BEQ CL2TST 
2237 006500 104401 020156 TYPE ,CLT1 


2238 006504 104401 020704 TYPE RUN 


CVKDAC 


CVKDAC .P11 


006510 
006516 


006622 
006630 
006632 
006636 


PDT11-150 As aca 


16-FEB-79 1 


032737 
001051 


032737 


012737 
004537 


013440 
005037 


052737 
004537 


000410 


032777 
001404 
104401 
104401 


020000 


000002 
055016 
055014 
012326 


013534 
176512 
000100 
000100 


012352 


010000 


020167 
020704 


001246 


001246 
177420 
177420 


172310 
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PROGRAM 


;, eeterererereeerrrrerrrererrirretereeeeeeeteeteeeeereeeeeeeeeeAe 


: START CLUSTER TERMINAL #2 


;,eeeaeeerererererererererrerereetereerekeeeeekeeetereeerenenenese 


CL2TST: BIl #B1T13,S0EVM :DROP TEST? 
BNE CL3TST 


:BR IF YES 
BIT #68111, $DEVM TERM #2 SET FOR EXT LOOPBACK? 
BEQ ;BR IF YE 
tg #<C12!B2400! CHARB!MAINT> , PARAM sELSE SET FOR INT LOOPBACK 
1$: MOV #<CT2!B2400! CHAR8> , PARAM SETUP FOR EXT LOOPBACK 
2$: JSR R5,SETVEC SETUP INTERR VECTORS 

TK2VEC 

TK2SRV 

TP2SRV 
CLR T2CHR CHAR TO BE XMITTED 
MCV TK2B, T2HLD READ CHAR (CLEAR STALE DATA) 
BIS WIE, TK2S SET CLUSTER TERM #2 LOOSE! 
BIS W1E,TP2S 

R5, TIMER SEE IF T2CHR GOES TO 377 
T2CHR 
377 

ERROR 35 ;CLUSTER TERM 2 NOT RESPONDING 
BR CL3TST 
BIT ry ls aSwR :SKIP TYPEOUT IF NOT SET 
BEQ CL31S 
TYPE CL TS. 
TYPE > RUN 


SEQ 0051 


N 4 
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1:12 PROGRAM 


CVKDAC.P11 16-FEB-79 11: SEQ 0052 
2273 
2274 ss, eeeeeereeerererereeererererterreeetenerereeneeeeeeKereeLeeeeee 
2275 ; START CLUSTER TERMINAL #3 
2276 sp eteereeerereretererterererererterereeeerarareneneeeeneereeeeeet 
2277 


2278 006642 032737 040000 001246 CL3TST: B11 #B1T14,S0EVA ;DROP TEST? 
3344 006650 001051 BNE DXTSTO :BR IF YES 


22 

2281 006652 032737 000004 001246 BIT #B1T2,$DEVA TERM #3 SET FOR EXT LOOPBACK? 
2282 006660 001404 BEQ ;BR IF YES 

2283 006662 012737 065016 177420 MOV #<C13!B2400!CHARB!MAINT>, PARAM ;ELSE SET FOR INT LOOPBACK 
2284 006670 000403 BR 

sae 006672 012737 065014 177420 18%: MOV #<CT3!B2400! CHAR8> , PARAM ;SETUP FOR EXT LOOPBACK 
2287 006700 004537 012326 2$: JSR R5,SETVEC s;SETUP INTERR VECTORS 

2288 006704 000320 TK3VEC 

2289 006706 013556 TK3SRV 

$s 006710 015540 TP3SRV 

2292 006712 005037 013634 CLR T3CHR :CHAR TO BE XMITTED 

2293 006716 013737 176522 013636 MOV TK3B,T3HLD sREAD CHAR (CLEAR STALE DATA) 
2294 006724 052737 000100 176520 BIS #1E,1K3S ;SET CLUSTER TERM #3 LOOSE! 
5344 006732 052737 000100 176524 BIS #IE,TP3S 

2297 006740 004537 012352 JSR R5, TIMER sSEE IF T3CHR GOES TO 377 

2298 006744 013634 T3CHR 

2299 006746 000377 37 

2300 006750 104036 ERROR 36 CLUSTER TERM 3 NOT RESPONDING 
$0) 006752 000410 BR DXTSTO 

2303 006754 032777 010000 172156 BIT #B1T12,aSWR SKIP TYPEOUT IF NOT SET 

2304 006762 001404 \ BEQ DXTSTO 


2305 006764 104401 020200 TYPE -CLTS 
2306 006770 104401 020704 TYPE »RUN 
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CVKDAC.P11 16-FEB=79 11:12 PROGRAM SEQ 0053 
2307 
2308 Ss, eteteeneeereerrerererrererereterererekeerenerereeeteereereeeeeee 
Te : FILL & EMPTY BUFFER TEST: DRIVE 0 
2311 “A FILL BUFFER COMMAND IS ISSUED WITH ALTERNATING WORDS OF ALL 0°S & ALL 1°S. 
2312 7AN EMPTY BUFFER COMMAND IS ISSUED TO FILL ‘DOBUF'. 
2313 [UPON COMPLETION, DOBUF 1S CHECKED FOR ALTERNATING WORDS OF ALL O'S & ALL 1°S. 
2314 ERRORS IN THIS TEST MAY INDICATE CABLE CROSS-TALK INTERFERENCE. 
2315 ;,eeetererrerererereereeeerererereeereeeeereeeteneneneeereeeeenee 
2316 
seit 006774 005037 003260 DXTSTO: CLR DXTST 70 = DXTSTO 
2319 007000 032737 000400 001246 BIT #B118,SDEVM sDROP DXO TESTS? 
2320 007006 001404 BEQ 7$ :BR 1F NO 
2321 007010 032737 001000 001246 BIT #B119,$0EVM :DROP DX1 TESTS? 
o3¢ 007016 001113 BNE DXTST1 :BR IF YES 
2324 007020 004537 012634 7$: JSR RS, TIMER2 sWAIT FOR DISK DONE 
2325 007024 177170 RXCS 
2326 007026 000200 DONE 
2327 007030 104075 ERROR 75 7NO DONE 
$328 007032 000500 BR 8$ sEXIT 
sea 007034 012737 000011 177170 MOV #INITAL,RXCS 700 AN INITIALIZE COMMAND 
2332 007042 004537 012634 JSR RS, TIMER2 sWAIT FOR DONE 
2333 007046 177170 RXCS 
2334 007050 000200 DONE 
2335 007052 104114 ERROR 114 :NO DONE 
S358 007054 000467 BR as 
2338 007056 005737 177170 TST RXCS s ERROR? 
2339 007062 100001 BPL 6$ :BR IF NO 
230 007064 104140 ERROR 140 : INIT CMD ERROR 
c 
2342 sFILL BUFFER 
234% 007066 012700 000190 6$: MOV #100,R0 sWORD CT 
2344 007072 005001 CLR R1 s WORD 
2345 007074 012737 000001 177170 MOV #WFBUF ,RXCS ISSUE FILL BUFF COMMAND 
2346 007102 010137 177172 1$: MOV R1,RXDB 
2347 007106 005101 COM R1 COMPLEMENT WORD 
2348 007110 005300 DEC RO :DONE ALL 100 WORDS? 
to 007112 001373 BNE 1$ :BR IF NO 
2351 007114 004537 012634 JSR R5,TIMER2 sWAIT FOR DISK DONE 
2352 007120 177170 RXCS 
2353 007122 000200 DONE 
2354 0071246 104115 ERROR 115 sNO DONE 
2355 607126 000442 GR 8$ sEXIT 


CVKDAC 
CVKDAC.P11 


007154 
007156 
007162 
007164 


007166 
007170 


007172 


007204 
007206 


007222 


007224 
007230 
007232 


007234 
007240 


007242 
007244 


PDT11-150 EXERCISER 
16-FEB-79 11:12 


-+oe-n— Oo 


Nu—ONWw 
—Coon 


020127 
001362 
000405 


000137 
000000 


000000 
177777 


000100 
002564 
000003 
177172 


012634 
002564 
007240 


007240 
007240 


002764 


011176 


177170 


177777 
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PROGRAM 


23: 


4$: 


#100,R0 sWORD CT 
#D0BUF ,R1 ;BUFFER ADDR 
WEBUF ,RXCS ; ISSUE EMPTY BUFF COMMAND 
RXDB,(R1)+ sSTORE WORD 
RO ; DONE? 
23 ;BR IF NO 
RS, TIMER2 sWAIT FOR DISK DONE 
116 :NO DONE 
8$ EXIT 
;CHECK IT 
#DOBUF ,R1 :BUFFER ADDR 
(R1)+,EBHLD :STORE IT 
4% ;BR IF ZERO 
76 sWORD NOT ALL ZEROS 
(R1)+,EBHLD 
EBHLD,#-1 sALL 1°S? 
5$ 7BR IF YES 
77 sWORD NOT ALL ONES 
R1,#D0BUF+200 ;END OF DOBUFF? 
3$ 7BR IF NO 
DXTSTI 3;GO TO NXT TST 
EOP sEXIT ALL DISK TESTS 
; STORAGE FOR ERROR REPORT 


sEXPECT O'S FOR ERROR REPORT 
sEXPECT 1°S FOR ERROR REPORT 


SEQ 0054 


CVKDAC 
CVKDAC.P11 


007246 


007254 
007260 


007264 


607300 
007306 


007322 


007330 
007336 


007340 
007346 


067354 
007360 
007362 
007370 


007372 
007400 
007404 


007412 
007416 
007420 


007422 
007430 


007432 
007440 


PDT11-150 cco 


16-FEB=-79 1 


012737 


005037 
005037 


005037 


012737 
005037 


012737 


032737 
001031 


012737 
012737 


005737 


000403 


012737 
005037 
052737 


004737 
104041 
000240 


000001 


002546 
003016 


002540 
002544 
002554 
000001 
003010 
003014 
003024 
000001 
000400 
014130 
000200 
003274 
014622 
014246 
003262 
000100 


012436 


001000 


014130 
000200 


003260 


002550 


003020 
001246 


000264 
000266 


014230 


014230 
177170 


001246 


000264 
000266 


dD 5 
MACY11 306(1063) 16-FEB-79 11:13 PAGE 55 
PROGRAM 


;,eeeeereererereeereereereteeeteeereteeeeeeeeeeeeeteeeteeeeeeeeene 


: START DXO & DX1 DATA PATTERN 


sEACH SECTOR IS FILLED WITH ITS TRACK & SECTOR ADDRESS AS DATA. 

:DX1 WILL ALWAYS HAVE ITS DATA BIT 15 SET TO g-9re IT FROM DXx0. 
sEACH TRACK IS READ & CHECKED BEFORE GOING TO THE NEXT TRACK. 

:DATA IS oa it ON ALTERANTE SECTORS TO AVOID LATENCY TIMES. 

s1E: SECTORS 1,3,5...31 FOLLOWED BY 2,4,6...32. 

; HARD ERRORS ARE THOSE ERRORS AFTER 10 MORE RETRIES. 

:1"ST PASS PERFORMED ON TRACKS 0-4, 40-44, 72-76(10) 

; SUBSEQUENT PASSES ON ALL TRACKS 


soe eeeereeeeeeeeeeeerereererereeeeeeeeeeeeeeKeeeeAteeeeeeeeeeeeee 


DXTST1: MOV #1,0XTST 31 = DATA PATT TESTS 
CLR DOTRK STARTING TRACK 
CLR DITRK 
12$: CLR DOPAT ; INIT DXO FLAGS 
CLR DOERR 
CLR DOCERR 
MOV #1,D0SEC 
CLR DIPAT ; INIT DX1 FLAGS 
CLR DIERR 
CLR DICERR 
MOV #1,D1SEC 
BIT #B1T8,$DEVM ;DROP DXO TESTS? 
BNE 2$ :BR IF YES 
MOV MRXSRV,RXVEC ;SETUP VECTOR AREA 
MOV #200, RXVEC+2 
1$: TST COMP2 :DOING COMPAT PASS 2? 
BEQ 10$ :BR IF NO 
MOV MDORSEC,DODISP ;ELSE DO READS ONLY 
BR 7$ 
10$: MOV WDOFBUF ,DODISP ;DO NORMAL TESTING 
7$: CLR FIN ;D0 DX1 WHEN SET 
BIS WIE,RXCS ;LET INTERRUPTS LOOSE! 
JSR PC,TIMDO 
ERROR 41 :D0X0 NOT GETTING TRACK DONE FLAG 
NOP 
23: BIT #B119,SDEVM DROP DX1 TESTS? 
BNE 4$ :BR IF YES 
MOV WRXSRV ,RXVEC ;SETUP VECTOR AREA 
MOV #200, RXVEC#2 





SEQ 0055 


CVKDAC 
CVKDAC.P11 


007462 
007464 
007472 
007476 
097504 
007510 
007512 


007514 


007540 
607542 


007564 
007566 


007570 
007574 
007576 


007602 
007606 


007610 


007642 
007644 


007676 


PDT11-150 Ass peo 


16-FEB-79 1 


005737 


000403 
012737 
005037 
052737 
004737 
104042 
000240 


032737 
001007 


000717 
032737 


000741 
005737 
001402 
000137 


005737 
001035 


023727 


003274 
016406 
016032 
003262 
000120 


012532 


000400 
002540 
012530 


001000 
003010 
012620 


003272 
011176 
001176 


003264 
000050 
000050 
000054 
003264 


000110 


007264 


014236 


014236 
177170 


001246 


001246 


000004 


002546 
003016 
003264 


000054 
002546 


003016 
003264 


MACY11 306(1063) 
PROGRAM 


3$: 


118: 
8$: 


4$: 


5$: 


6$: 


13$: 


148: 


— 5 
16-FEB-79 11 


COMP2 

11$ 
#DIRSEC,DIDISP 
8$ 


+ teeta 
M<IE!DX1>,RXCS 
PC,TIMDI 

42 


#B11T8,S$DEVM 
5% 

DOPAT 

5$ 

DOTMO 

1$ 

7$ 
#B1T9,$DEVM 
6$ 

DIPAT 

6% 

D1TMO 

3$ 

8$ 

COMP 1 

13% 

EOP 


SPASS 
DXTST2 


MAXTRK #4 
14% 


#40. ,DOTRK 
#40. ,D1TRK 
#44, ,MAXTRK 
12% 


MAXTRK , #44, 
DXTST2 

#72. ,DOTRK 

#72.,D1TRK 

#76. ,MAXTRK 
12% 


713 PAGE 56 


;DOING COMPAT PASS 2? 
:BR IF NO 

ELSE DO READ ONLY 
;D0 NORMAL TESTING 


:GO BACK TO DXO WHEN SET 
;LET INTERRUPTS LOOSE! 


:0X1 NOT GETTING TRACK DONE FLAG 


;DROP Dx0? 
:BR IF YES 
ELSE BF a ALL DONE? 


NO 
ELSE. CONT LAST COMMAND 


;DROP DX1? 
;BR IF YES 
sELSE AiO ALL DONE? 


NO 
ELSE. CONT LAST COMMAND 


;DOING COMPAT PASS 1? 
:BR IF NO 
sELSE ALL DONE 


aa PASS? 


R IF NO 

;JUST DID 5 OUTER TRACKS? 

BR IF NO 

sELSE SETUP FOR 5 MIDDLE TRKS 


:GO DO IT! 
JUST DID 5 MIDDLE TRACKS? 


;BR IF NO, MUST BE ALL DONE 
ELSE SETUP FOR 5 INNER TRKS 


:00 IT! 


SEQ 0056 


F 5 
PDTI1- ty A —— MACY11 30G6(1063) 16-FEB-79 11:13 PAGE 57 


CVKDAC 
CVKDAC.P11 —- 16=FEB-79 11:12 PROGRAM SEQ 0057 

2494 

2495 ppt eerertereerereerrererererreererrereeeeeeeeeeeeeeeeteeeeeeTere 

sae : START DXO & DX1 RANDOM SEEKS 

2498 “RANDOM SEEKS ARE PERFORMED ON EACH DISK. 

2499 [DATA IS READ & VERIFIED TO BE CORRECT FROM THE PREVIOUS TEST. 

2500 SHARD ERRORS ARE THOSE ERRORS AFTER 10 MORE RETRIES. 

2501 :1°ST PASS PERFORMS 20 RANDOM SEEKS ON 1°ST 5 TRACKS. 

2502 SUBSEQUENT PASSES PERFORMS 500 RANDOM SEEKS BETWEEN ALL TRACKS. 

3444 ;,eeeeererertererererrerereerereererereeekeekekeeeeeeeeteeeeeeene 

2505 007702 012737 000002 003260 DxTST2: MOV #2,DX1S1 2. = RANDOM SEEK TESTS 

2506 007710 005737 001176 1ST $PASS :1'ST PASS? 

2507 007714 001003 BNE 7$ “BR IF NO 

2508 007716 012737 000004 005264 MoV #4 ,MAXTRE ELSE JUST DO TRKS 0-4 

2510 007724 005037 002544 7$: CLR DOERR INIT DXO FLAGS 

2511 007730 005037 002554 CLR DOCERR 

2512 007734 005037 002542 CLR DOCNT 

2514 007740 005037 003014 CLR DIERR INIT DX1 FLAGS 

5515 007744 005037 003024 CLR DICERR 

2516 607750 005037 003012 CLR DICNT 

2518 007754 032737 000400 001246 BIT #8118, $DEVM DROP DXO TESTS? 

2519 007762 001041 BNE 2% “BR IF YES 

2521 007764 005037 012126 1$: CLR LOLIM 

2522 007770 013737 003264 012130 Mov MAXTRK ,HILIM 

2523 007776 004737 012024 JSR PC, RAND 

cose 010002 010137 002546 MOV R1,DOTRK ;GET RANDOM TRACK #@ 

2526 010006 005237 012126 INC LOLIM 

2527 010012 012737 000032 012130 Mov #32,HILIM 

2528 010020 004737 012024 JSR PC, RAND 

2529 010024 010137 002550 Mov R1.DOSEC GET RANDOM SECTOR # 

3531 010030 004537 013010 JSR RS, CKOBAD SEE IF THIS TRK/SEC FLAGGED BAD 

2532 010034 000755 BR oS “BR IF RETURN HERE 

2534 010036 012737 014622 014230 Mov MDORSEC,DODISP :SET DISPATCH TABLE TO POINT TO 

2535 s;READ SECTOR HANDLER 

2536 010044 005037 003262 CLR FIN “DO DX1 WHEN SE7 

2537 010050 052737 000100 177170 BIS WIE, RXCS “LET INTERRUPTS LOOSE! 

2539 010055 004737 012436 JSR PC, TIMDO 

2540 010062 104117 ERROR 117 :DXO NOT GETTING DONE FLAG 

5541 010066 000240 NOP 


panei. 


CVKDAC 

CVKDAC P11 
2542 
2543 010066 
2544 010074 
2545 
2546 010076 
2547 010102 
2548 010110 
2549 010114 
2550 
2551 010120 
2552 010124 
2553 010132 
2554 010156 
2555 
2556 010142 
2557 010146 
2558 
2559 010150 
2560 
2561 010156 
2562 010162 
2563 
2564 610170 
2565 010174 
2566 010176 
2567 
2568 010200 
2569 010206 
2570 010210 
2571 010216 
2572 
2573 010220 
2574 010226 
2575 010230 
2576 010236 
2577 
2578 010240 
2579 010244 
2580 010246 
2581 


PDT11-150 Fly get 


lee FEB -79 1 


012737 


005037 
052737 


004737 
104120 
000240 


032737 


001262 
032737 


061317 


005737 
001402 
000137 


001000 


012126 


003016 
012126 


003020 
013122 


016406 


003262 
000120 


012532 


000400 


002542 


001000 
003012 


003274 
011176 


001246 


012130 


012130 


014236 


177170 


001246 
003266 


001246 
003266 


MACY11 306(1063) 
PROGRAM 
23: 


3$: 


4$: 
5$: 


6$: 


G 5 
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#B119,$DEVM 
4% 


LOLIM 

MAXTRK ,HILIM 
PC ,RAND 
R1,D1TRK 
LOLIM 
#32,HILIM 

PC ,RAND 
R1,D1SEC 


R5,CK1BAD 

3$ 
#DIRSEC,D1DISP 
FIN 
M#<IE!DX1>,RXCS 
PC,TIMD1 

120 
#B1T8,$DEVM 

5$ 

DOCNT ,MAXSK 

1$ 


#B119,$DEVM 
6$ 

DICNT ,MAXSK 
3$ 

COMP2 


DXTST3 
EOP 


;GET RANDOM TRACK @ 


GET RANDOM SECTOR # 


;SEE IF THIS TRK/SEC FLAGGED BAD 
:BR IF RETURN HERE 


:SET DISPATCH TABLE TO POINT TO 
READ SECTOR HANDLER. 

;GO BACK TO DXO WHEN SET 

;LET INTERRUPTS LOOSE! 


;DX1 NOT GETTING DONE FLAG 


;DROP DX1 TESTS? 
BR IF YES 


;DROP DX0? 
7;BR IF YES 


:D1D ALL SEEKS? 
BR IF NO 


;DROP DX1? 
:BR IF YES 


:D1D ALL SEEKS? 
BR IF NO 


;DOING COMPAT PASS 2? 
:BR IF NO 


ELSE ALL DONE 


SEQ 0058 


Sialetsis 


CVKDAC 

CVKDAC.P11 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 010252 
2593 010260 
2594 
2595 010262 
2596 010270 
2597 010274 
2598 
2599 010300 
2600 
2601 010306 
2602 010312 
2603 
2604 610320 
2605 010324 
2606 010326 
2607 
2608 010330 
2609 010334 
2610 010336 
2611 
2612 010340 
2613 010346 
2614 010350 
2615 
2616 010352 
2617 010356 
2618 010362 
2619 010370 
2620 
2621 010376 
2622 
2623 010404 
2624 010410 
2625 
2626 010416 
2627 010422 
2628 010424 


PDT11-150 i enema 


16-FEB-79 1 


032737 
001062 


012737 
005037 
005037 


012737 


005037 
052737 


004737 
104046 
000437 


005737 
100001 
104063 
032737 
001001 
104055 


065037 


012737 
012737 


005037 
052737 


004737 
104656 
0006240 


000400 


000003 
002544 
002554 
015666 


003262 
000100 


012436 


177170 


000001 


002544 
002554 
000001 
000001 


015102 


003262 
000100 


012436 


001246 


003260 


014230 


177170 


177172 


002546 
002550 


014230 


177170 


H 5 
MACY11 30G(1063) 16-FEB-79 11:13 PAGE 59 
PROGRAM SEQ 0059 


--@eeeteretterrererererrereneererererereeeereneeteeeeteereeeeeeeteteene 


: INITIALIZE COMMAND TEST 


:THE INITIALIZE & EMPTY BUFFER COMMAND IS ISSUED TO DxO. 
sDATA IS VERIFIED TO BE THAT OF TRACK 1, SECTOR 1. 

SHARD ERRORS ARE THOSE ERRORS AFTER 10 MORE RETRIES. 

; ‘INIT’ CANNOT BE ISSUED TO DX1. 


;,eeereererereeeerrererietertirrerererereetereeeeeeeeeteneneeeeees 


DXTST3: BIT #B118,SDEVM ;DROP DXO TESTS? 
BNE DXTST4 BR IF YES 


MOV #3,DXTST 33 = INIT TEST 
CLR DOERR 7 FLAGS 
CLR DOCERR 
MOV #DOINIT,DODISP ;SET DISPATCH TABLE TO GO TO INIT HANDLER 
CLR FIN 
BIS WIE,RXCS ;LET LOOSE 
JSR PC,TIMDO 
ERROR 46 ;DX0 HUNG ON INITIALIZE COMMAND 
BR DXTST4 
TST RXCS ;ERROR? 
BPL 1$ :BR IF NO 
ERROR 63 ; INIT COMMAND ERROR 
1$: BIT MID,RXES INIT DONE BIT SET? 
BNE 2$ ;BR IF YES 
ERROR 55 ; INIT DONE NOT SET 
2$: CLR DOERR 
CLR DOCERR 
MOV #1,D0TRK sEXP TRK & SEC 
MOV #1, DOSEC 
MOV #DOEBUF ,DODISP ;SETUP DISPATCH TABLE 10 
EMPTY BUFFER & VERIFY DATA 
CLR FIN . 
BIS MIE, RXCS ;LET LOOSE 
JSR PC,TIMDO 
— 56 7DX0 HUNG ON EMPTY BUFF COMMAND 
N 


C .KDAC 

CvKDAC.P11 
2629 
2630 
2631 
2632 
2635 
2634 
2635 
2636 
2637 010426 
2638 010434 
2639 
2640 010436 
2641 010444 
2642 010452 
2643 010456 
2644 
2645 010464 
2646 010470 
2647 010472 
2648 
2649 010474 
2650 010500 
2651 010502 
2652 
2653 010504 
2654 010510 
2655 
2656 010516 
2657 010522 
2658 010526 
2659 010532 
2660 010540 
2661 
2662 010546 
2663 010552 
2664 010554 
2665 
2666 010556 
2667 010564 
2668 
2669 010566 
2670 010574 
2671 010600 
2672 
2673 010606 
2674 010612 
2675 010614 
2676 
2677 010616 
2678 010622 
2679 010624 


PDT11=150 "Sanaa 


16-FEB-79 1 


000431 


005737 
100001 
104054 


005037 
012737 


005037 


052737 


004737 
104121 
000240 


032737 
001045 


012737 
005037 
052737 


004737 
104122 
000431 


005737 
100001 
104074 


000400 


000004 
015712 
003262 
000100 


012436 


177170 


002546 
000001 
002544 
002554 
003262 
014622 
000100 


012436 


001000 


015730 
005262 
000120 


012532 


1771790 


001246 
003260 
014230 
177170 


002550 


001246 


014236 
177170 


MACY11 306(1063) 
PROGRAM 


] 
16-FEB-79 


5 
11:13 PAGE 60 


serererereereerereterererereretererereeeeteetetereteeeereteeeene 


RESTORE COMMAND TEST 


STHIS TEST VERIFIES THAT THE RESTORE COMMAND CAN BE ISSUED 
210 DXO & DX1 & THAT NO ERRORS RESULT FROM IT 


seeeneereeerrereereereerererrertereeeeereeetereeteetereteeeereer 


DXTST4: BIT 
BNE 


2$: BIT 


#B1T8,S0EVM 
DXTST5 


XTST 
rOORES| -DODISP 
WIE, RXCS 
PC,1TiMDO 
4 
2$ 
RXCS 
1$ 
54 


DOTRK 
#1,D0SEC 


DOERR 
DOCERR 


- FIN 
#DORSEC .DODISP 


WIE,RXCS 
PC, TIMDO 
121 


#BIT9,$DEVM 
DXTSTS 


+ pte 
#<IE'DX1>,RXCS 
PC,TIMD! 

122 

DXTSTS 

RXCS 

3$ 

74 


;DROP DXO TESTS? 
IF YES 


74 = RESTORE TEST 
SETUP DISPATCH TABLE 


;0X0 HUNG ON RESTORE COMMAND 


; ERROR? 

:BR IF NO 

:DX0 RESTORE COMMAND ERROR 

CHK FOR RECORD NOT FOUND (RNF) 


;SET TRK/SEC. SHOULD NOT MOVE 
;LOGIC THINKS ITS ALREADY THERE. 


:SETUP TO READ SECTOR 
;LET INTERR LOOSE 


;DX0 HUNG ON READ CMD 
DROP DX1 TESTS? 

:BR IF YES 

REPEAT FOR DX] 

;LET INTERR LOOSE 


:DX1 HUNG ON RESTORE CMD 


ERROR? 
:BR IF NO 
:0X1 RESTORE CMD ERROR 


SEQ 0060 


| 
a 


CVKDAC 

CVKDAC.P11 
2680 
2681 010626 
2682 010632 
2683 010640 
2684 010644 
2685 010650 
2686 010654 
2687 010662 
2688 
2689 010670 
2690 010674 
2691 010676 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 010700 
2704 010706 
2705 
2706 010710 
2707 010716 
2708 010722 
2709 
2710 010726 
2711 
2712 010734 
2713 010740 
2714 
2715 010746 
2716 010752 
2717 010754 
2718 
2719 010756 
2720 
2721 010764 
2722 010770 
2723 
2724 010776 
2725 011002 
2726 011004 
2727 
2728 011006 
2729 011012 
2730 011014 


PD1T11-150 


16-FEB-79 11:12 


005037 
0 


052737 


004737 
104123 
000240 


032737 
001043 


012737 
005037 
005037 


012737 


005037 
052737 


004737 
104050 
000420 


012737 


005037 
052737 


004737 
104051 
000404 


005737 
100001 
104057 


003016 


000129 
012532 


000400 


000005 
002544 
002554 
014246 


003262 
000100 


012436 


015746 


003262 
000100 


012436 


177170 


EXERCISER 
1:1 


001246 


003260 


014230 


177170 


014230 


177170 


5 
MACY11 30G6(1063) 16-FEB-79 11:13 PAGE 61 
PROGRAM 


-satteteertererererrerere 


DITRK 
#1, 01SEC 
DIERR 
DICERR 
FIN 


#DIRSEC,DIDISP 
M<ITE!DX1>,RXCS 


PC,TIMD1 
123 


READ TO CHECK FOR RNF 


;SETUP TO READ SECTOR 
LET INTERR LOOSE 


;0X1 HUNG ON READ CMD 


(RA RBRBSASSZARASSASARASSRAASESASER ESSER SSS 


WRITE SECTOR WITH DELETED DATA MARK TEST 


THIS TEST VERIFIES THAT THE WRITE DELETED DATA COMMAND CAN BE ISSUED 
:& THAT THE ‘DELETED DATA® BIT 5 IS SET IN RXCS AFTER READY IS RECV'D. 


HARD ERRORS ARE THOSE ERRORS AFTER 10 MORE RETRIES. 


ps eereeeeeeeeeeeeereeetereeee eter eee eek eeeeeeeeteeeeeeteeeeees 


DXTSTS: BIT 
BNE 


#B1T8,$DEVE 
DXTST6 


#5 ,OXTST 
DOERR 
DOCERR 


#DOF BUF ,DODISP 


FIN 

WIE,RXCS 
PC,TIMDO 

50 

DXTST6 
#DOSTAT,DODISP 


FIN 
WIE,RXCS 


PC,TIMDO 
51 
DX1ST6 


DROP DXO TESTS? 
;BR IF YES 


;5 = WR DEL DATA TEST 


;SETUP DISPATCH TABLE 

;LET LOOSE 

:DX0 HUNG ON WRITE DEL DATA CMD 
:SETUP DISPATCH TABLE 

;LET LOOSE 

:;DX0 HUNG ON READ STATUS 


sERROR? 
;BR IF NO 
;READ STATUS ERROR 


SEQ 0061 


nee 


CVKDAC 


CVKDAC.P11 


Ww 


MMR NNR Nfrnr 

Se ot ee de ee te ee be te he) 
EEE FW 

WN —OOSBNOVWFW 


~_N 


by 


— et et 
—-oo 
oon 


per 
— oe 
— os es 
OvF FW WUIN Nh 
NMFEOF NO FNMA HLNVOT 


ooooo oOo COO SC0C00oO coco 
—_—_ — 


+ se 
— ee et ot ot 
—_> — — ss 
o 


PDT11-150 a 


16-FEB-79 1 


005037 
052737 


004737 
104060 
000432 
032737 
001002 
104061 
000404 
005737 
100401 
104062 


005737 
001013 


005237 


000734 
000401 
000000 


000400 


011174 


046401 


015764 


003262 
000100 


012436 


000002 


177170 


011174 


011174 


000033 


001246 


003260 


177174 
014230 


177170 


177172 


K 5 
MACY11 30G(1063) 16-FEB-79 11:13 PAGE 62 
PROGRAM 


-erererrtrerereereerereerererereeeeeeeereRrereeeeeeeeeeeeeeteeeene 


: INVALID ADDRESS TESTS 
TA WRITE SECTOR COMMAND 1$ ISSUED TO INVALID TRACK 115(8) 


8 RXCS 1S CHECKED FOR THE INVALID ADDR BIT 1 TO BE SET AFTER RDY. 


THE ABOVE IS REPEATED FOR INVALID SECTOR 33(8). 


p,eeteeetererererereerrerereeeetereretreteekeereeketeeeneeereeeee 


DXTST6: BIT #B1T8,SDEVM ;DROP DXC TESTS? 
BNE 4% R IF YES 


CLR INVCT 

MOV #6,DXTST 
MOV #115, DOTRK 
MOV #1,D0SEC 


76 = INV ADDR TESTS 


MOV #46401,RXSA ; INVALID TRACK 
1$: MOV #DOINV,DODISP ;SETUP DISPATCH TABLE 
CLR FIN 
BIS WIE ,RXCS ;LET LOOSE 
JSR PC,TIMDO 
ERROR 60 30X0 HUNG ON INVALID ADOR 
BR EOP 
BIT MINVADR,RXES 7 INV — BIT SET? 
BNE 2s :BR YES 
ERROR 61 4 ADDR BIT NOI SET 
BR 3$ 
2$: TST RXCS sERROR BIT SET? 
BMI 3$ ;BR IF YES 
ERROR 62 sERROR BIT NOT SET 
3$: TST INVCT :D1D we ‘ta DO a SECTOR? 
BNE 4% “BR IF YES...DON 
INC INVCT 
CLR DOTRK 
MOV #33,D0SEC 
MOV #33,RXSA s INVALID SECTOR 
BR 1$ ;REPEAT FOR INVALID SECTOR 
4$: BR #4 
INVCT: 0O 30 = DOING INVALID TRACK 


;1 = DOING INVALID SECTOR 


SEQ 0062 


CVKDAC 
CVKDAC.P11 


2 
2785 


MyYNVNNMNNNTN 
WIA ssa 


ooooooo°o°o°o0o 
on 
mo 


ee kk ad ek td od ot od 
Ok kk a kd et td td 
MMMM PPP ferro nnn — 
GSeworoseee esate 
NMOENMOLOSGNEALOLM 


ooooooo coocoo°oco°coo 
WAIANAE Pu Pu fonfe 


PDT11-150 — 


16-FEB-79 11:1 


005237 


012737 
005737 


000137 


377 
011340 


000764 
003272 
021403 
003272 
003274 
004072 


377 


L 5 
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PROGRAM 


--aeretenrterererererererrererereeeererereeenekerereneekeneeeeeeese 


serene erereererererreetererrerererereeekeeeeeeeeeereeeeeeeeeeretes 


: END OF PASS 
EOP: INC SPASS 
TYPE -ENDPAS 
MOV SPASS,-(SP) 
TYPDS 
TYPE -MSG1 
MOV TERR, =(SP) 
TYPDS 
TYPE oMSG2 
MOV TSERR,-(SP) 
TYPDS 
TYPE -MSG3 
MOV PERR,-(SP) 
TYPDS 
TYPE -MSG4 
MOV PSERR,-(SP) 
TYPDS 
TYPE eNULL 
003264 MOV #114, MAXTRK 
003266 MOV #500. ,MAXSK 
TST COMP 1 
BEQ 1$ 
TYPE -COMPAT 
HALT 
CLR COMP 1 
INC COMP2 
1$: JMP LOOP 
000 NULL: .BYTE <-1,-1,0 
-EVEN 


sPASS CIR 


;;SAVE SPASS FOR TYPEOUT 
3:60 TYPE--DECIMAL ASCII WITH SIGN 


SrSAVE TERR FOR TYPEOUT 
G0 TYPE--DECIMAL ASCII WITH SIGN 


:;SAVE TSERR FOR TYPEOUT 
::GO TYPE--DECIMAL ASCII WITH SIGN 


:;SAVE PERR FOR TYPEOUT 
3:G0 TYPE--DECIMAL ASCII WITH SIGN 


3;SAVE PSERR FOR TYPEOUT 

3:GO TYPE--DECIMAL ASCII] WITH SIGN 
:NULL CHAR 

;FOR ALL SUBSEQUENT PASSES 

;COMPAT PASS 1? 

:BR IF NO 

:DONE MSG 


;REPEAT 
;NULL CHAR STRING 


SEQ 0065 
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2816 
2817 pyrteeeeerereerrerererereerreeereeeteeeneeeeeeeeeteeeeeeeeeee ee 
2818 cohen SIZER SUBROUTINE 
2819 peteeaeneererereerreererererererereeeeeeeeeeteeteeeeReeReeeeeeeese 
2820 
2821 011340 012737 013176 000604 SIZE: MOV WINTSRV,ERRVEC ;SETUP ap «#4 TRAP ADDR 
2822 011346 012737 000200 000006 MOV #200 ,ERRVEC+2 :LOCKOUT INTERR 
2823 011354 012737 013176 000010 MOV WINTSRV,RESVEC ;SETUP RESERVED INST TRAP ADDR 
oose 011362 012737 000200 000012 MOV #200, ,RESVEC+2 ‘LOCKOUT INTERR 
2826 sp teeeererrereerereeeserereeeeetereeereeeeeeeeeeeeteeeteeeteeeee 
2827 sROUTINE TO SIZE THE AMOUNT OF MEMORY 
2828 sp eteeeeeererererereeteeterereeteetereteteeeKeneeaeAetaeeeeeeeAee 
2829 011370 005037 013204 CLR INTFLG 
2830 011374 012700 003776 MOV #3776,R0 sSIZE MEM. START WITH 1K 
2831 011400 005001 CLR R1 sCTR, 1=1K, 2=2K, ETC 
2832 011402 005710 1$: TST (RO) 
2833 011404 005737 013204 TST INTFLG :GOT TIMEOUT INTERR? 
2834 011410 001007 BNE 2$ :BR IF YES 
2835 011412 005201 INC R1 
2836 011414 020027 167776 CMP RO,#167776 ;DONE 32K MEM? 
2837 011420 001405 BEQ 3$ ;BR IF YES, ALL DONE 
2838 011422 062700 004000 ADD #4000,R0 :GO TO NEXT 1K 
tt 011426 000765 BR 1$ 
2841 011430 162700 004000 2$: SUB #4000,k0 :G0 BACK TO LAST VALID 1K 
2842 011434 010037 012022 3$: MOV RO ,MAXMEM SAVE 
2843 011440 010146 MOV R1,-(SP) SAVE R1 FOR TYPEQUT 
2844 7: TYPE MEM SIZE 
2845 011442 104405 TYPDS 7:GO0 TYPE--DECIMAL ASCII WITH SIGN 
oe 011444 104401 020327 TYPE MEM 
2848 Spee eeeeeeeeeeeeeee eee eee terre ere eteKeKeeeKeeeeekeeeeeeeAee eee 
2849 : ROUTINE TO CHECK IF “EIS-FIS'’ OPTION IS PRESENT 
2850 PU eMA eee eee eee eee eee Tee eee eee eee eeKKKeeKeRee ee eee eee 
2851 011450 005037 012012 CLR EIPRES sCLEAR EIS-FIS PRESET FLAG 
2852 011454 005037 013204 CLR INTFLG :CLEAR TRAP FLAG 
2853 011460 072100 ASH RO,R1 sEXECUTE EIS INSTRUCTION 
2854 011462 000240 NOP 
2855 011464 005737 013204 TST INTFLG sTEST IF TRAP OCCURRED 
2856 011470 001003 BNE 60$ ;BR IF YES 
2857 011472 005237 012012 INC EIPRES :NO TRAP = SET EIS-FIS PRESENT FLAG 
2858 011476 000404 BR 61$ ;BR OVER TYPE-OUT 
2859 011500 104401 020307 60$: TYPE eELSTXT sEIS-FIS TEXT 
2860 011504 104401 020350 TYPE »NOTPRES 
2861 011510 618: 
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2862 ppeeeeerereerreererreerrerrererreretreeeereeereereeereeerereeeeTe 
2863 ;ROUTINE TO CHECK IF CLUSTER PORT 1S PRESENT 
2864 ppeteeererererrererrerereereeerererrtrenereeeeetereeereeeeeterest 
2865 
2866 011510 005000 CLR RO 
2867 011512 005037 013204 CLR INTFLG 
2868 011516 012760 176590 MOV #TK1S,R0 ;SETUP CLUSTER CSR ADDR 
2869 011522 005710 4$: TST (RO) sDARE IT TO TIMEOUT 
2870 011524 5737 013204 TST INTFLG 3010 IT? 

2871 011530 001011 BNE 6$ sBR IF YES 

2872 011532 020027 176520 CMP RO,#1K3S 3010 ALL 3? 

2873 011536 001403 BEQ 5$ BR IF YES 

2874 011540 062700 900010 ADD #10,R0 sELSE DO NEXT 

sar? 011544 000766 BR 4% 

2877 011546 005237 012014 5$: INC CLPRES sOPTION PRESENT 

or 011552 600406 BR 7$ ALL 3 MUST RESPOND 

2880 011554 005037 012014 6$: CLR CLPRES ;OPTION NOT PRESENT 

2881 011560 104401 020136 TYPE -CLOPT 

seat 011564 104401 020350 TYPE »NOTPRES 

2884 611570 012737 000006 000004 /7$: MOV WERRVEC +2 ,ERRVEC :RESET TIME-OUT VECTOR 
2885 011576 005037 00000 CLR ERRVEC+2 

2886 011602 012737 000012 000010 MOV WRESVEC+2,RESVEC RESET RESERVED INST VECTOR 
2887 011610 005037 000012 CLR RESVEC+2 


ee 
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2888 
2889 stererererertereererrereerererererentereneeeereeretertereeeeeeet 
2890 ROUT NE TO TYPEOUT DROPPED ITEMS 
2891 peeerererererererererrtrererererereeeeeeeeeeeteeeeeeeeETeeeeeee 
2892 011614 005000 CLR RO 
Seon 011616 012701 000100 MOV #B116,R1 
2895 011622 030137 001246 8$: BIT R1,SDEVM ;DEVICE DROPPED? 
2896 011626 001006 BNE 10% :BR IF YES 
2897 011630 000241 9$: CLC 
2898 011632 006301 ASL R1 
2899 011634 103425 BCS 13% ;BR IF ALL BITS TESTED 
2900 011636 062700 000002 ADD #2,R0 sELSE BUMP INDEX 
4H 011642 000767 BR 8$ 
2903 011644 016037 011664 011654 108: MOV 12$(RO),11$ 
2906 011652 104401 TYPE 
2905 011654 000000 11$: -WORD 0 ;DEVICE TO BE DROPPED 
2906 011656 104401 020663 TYPE , DROP 
44 011662 000762 BR 9$ 
2909 011664 020307 12$: EISTXT 
2910 611666 020300 CLOCK 
2911 011670 020266 DRVO 
2912 011672 020273 DRV1 
2913 011674 020211 SCOM 
2914 011676 020224 ACOM 
2915 011700 020156 CLT1 
2916 011702 020167 CLT2 
2917 011704 020200 CLT3 
2918 011706 020240 PRINT 
2919 PL eeeeeeeeeeeeeee eee eee AeA eee eee eee Kee Kee Tee eee ree tees 
2920 : ROUTINE TO CHECK IF PRINTER EXISTS 
2921 peeeeeeeeeeteeeeeeteeeeeee ete te rere eeee eee eeee eee Tee eee Tee 
2922 
2923 011710 005037 012016 13$: CLR PRPRES 
2974 011714 005037 012020 CLR PRPORT 
2925 011720 005737 177514 TST PRS ;SEE IF PRINTER ERR 
suse 011724 100027 BPL 16% :BR IF NO 
2928 011726 032737 000010 001246 BIT #BIT3,$DEVM :COMM PORT IN EXT LOOPBACK? 
3434 011734 001405 BEQ 15$ ;BR IF YES 
2931 011736 104401 020240 14$: TYPE PRINT 
2932 011742 104401 020550 TYPE ,NOTPRES 
oe. 011746 000420 BR 17% 
2935 011750 012737 037034 177420 15$: MOV #<AMOD !B9600! CPAR ! CHAR8>, PARAM 
2936 011756 042737 000006 176610 BIC M<RTS'DTR>,AMRC ;MUST BE TOGGLED 
2937 011764 052737 000006 176610 BIS #<RTS!DTR>, AMRC 
2938 011772 005737 177514 TST PRS sNOW ANY ERRORS? 
2939 011776 100757 BM] 14% ;BR IF YES 
2940 012000 005237 012020 INC PRPORT 
soe) 0120046 005237 012016 16$: INC PRPRES ;PRINTER PRESENT 
4 
2943 012010 000207 17$: RTS PC 
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2944 
2945 012012 000000 EIPRES: 0 sEIS-FIS PRESENT = NON-ZERO 
2946 012014 000000 CLPRES: 0 ;CLUSTER PRESENT = NON=7ERO 
2947 012016 000000 PRPRES: 0 + PRINTER PRESENT = NON-ZERO 
ue 012020 000000 PRPORT: 0 :1 = PRINTER ENABLED THRU LOOPBACK 
suet 012022 000069 MAXMEM: 0 ;MAX MEMORY 
2952 — aaa cca iain lata 
2953 : RANDOM NUMBER GENERATOR 
2954 ppetrerreererrererrereererereeerererereeeKeeeterenteeeeteeeeeeee 
2955 
2956 012024 013700 012134 RAND: MOV LONUM ,RO 
2957 012030 013701 012132 MOV HINUM,R1 
2958 012034 012702 177771 MOV #-7,R 
2959 0120460 006300 1$: ASL RO 
2960 012042 006101 ROL RI ROTATE CARRY TO R1 
2961 012044 005202 INC R2 ; DONE? 
2962 012046 001374 BNE 1$ 7BR IN NO 
2963 012050 063700 012134 ADD LONUM ,RO ;ADD NUMBER TO MAKE X 129 
2964 012054 005501 ADC R1 
2965 012056 063701 012132 ADD HINUM,R1 ;ADD NUMBER TO MAKE X 129 
2966 012062 062700 001057 ADD #1057,R0 ;ADD LO CONSTANT 
2967 012066 005501 ADC R1 
2968 012070 062701 047401 ADD #47401,R1 ADD HI CONSTANT 
2969 012074 010037 012134 MOV RO,LONUM 
2970 012100 010137 012132 MOV R1,HINUM 
2971 :SCALE 10 BE WITHIN LIMITS 
2972 012106 042701 177400 BIC #177400,R1 ;SAVE LO BYTE ONLY 
2973 012110 020137 012126 CMP R1,LOLIM 
2974 012114 103743 BLO RAND 7BR IF N < LOLIM 
2975 012116 020137 012130 CMP R1,HILIM 
2976 012122 101340 BHI RAND ;BR IF N > HILIM 
444 012124 000207 RTS PC sELSE EXIT WITH RI = N 
2979 012126 000000 LOLIM: 0O 
a 012130 000000 HILIM: 0 
2982 012132 176543 HINUM: .WORD 176543 
2983 012134 123456 LONUM: .WORD 123456 
2984 
2985 
2986 012136 123727 001210 000001 EXAMKB: CMPB SENV,#1 pAPT? 
2987 012144 001401 BEQ 1$ :BR IF YES 
2988 012146 104407 CKSWR 
2989 012150 000207 1$: RTS PC 
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,;eereeeeeerrerererererererrrererreereeereeereeeteeeeereeeeeeeeee 


:ROUT INE TO CISPLAY CURRENT DEVM & ALLOW OPERATOR TO INPUT NEW VALUE. 


,eeetaerereereteeeeerereererereeeereeeekereteeeeeeeeeeereeeeeeese 


GTISDEV: TYPE 
MO 


2$: TSTB 


3$: CMP 


8$: INC 


9$: TYPE 


,DEVA 
$DEVM,-(SP) 
, SMNEW 


-(SP) 
-(SP) 


astKs 

2$ 
a$TKB,-(SP) 
#*°C177, (SP) 
(SP) ,#15 

7$ 

4 (SP) 

4$ 
2(SP) , SDE VM 
#6,SP 

» SCRLF 

PC ,STYPEC 
(SP) ,#60 
9$ 

(SP) ,#67 
9$ 
#60,(SP)+ 
2(SP) 

8% 

(SP) 

(SP) 

(SP) 

2(SP) 
-2(SP), (SP) 
2% 


, SQUES 
4% 


ELSE SHOW CURRENT 

i: SAVE SDEVM FOR TYPEOUT 

3;G0 TYPE--OCTAL ASCIIC(ALL DIGITS) 
‘éeT NEW 


:CLR CTR 
:CLR NEW DEVM 


eo THERE ? 


:BR IF NO 
sELSE GET CHAR 
sMAKE IT 7 BIT ASCII 


7<CR>? 
:BR 1F NO 
ELSE 1S IT 1°ST CHAR? 
R YES 


IF 
TELSE SAVE NEW DEVM 
sRESTORE STACK 


sECHO CHAR 

:CHAR < 0? 

sBR IF YES 

:CHAR >7? 

7BR IF YES 

:STRIP OFF ASCII 
318 IT 1°ST CHAR? 
;BR IF YES 

sELSE SHIFT PRESENT CHAR 
310 MAKE ROOM 
;FOR NEW ONE 


KEEP CHAR CT 
:SET IN NEW CHAR 
;GET NEW ONE 


TYPE 2?<CRLF> 
:D0 ALL OVER 


SEQ 0068 


oe Malet 
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3036 H >, eetereererrrereererrrrererrerrereerteeeeetenereeeeterereneteree 

3037 ;* ROUTINE TO SET 2 CONSECUTIVE INTERRUPT VECTORS 

3038 :* 3 ARGUMENTS ARE PASSED THRU R5: 

3039 3 VECTOR ADDRESS 

3040 ie INTERRUPT SERVICE ROUTINE ADDRESS FOR RECVR 

3041 3 INTERRUPT SERVICE ROUTINE ADDRESS FOR XMITTER. 

3042 :* PRIORITY WILL BE SET TO DISABLE FURTHUR INTERR. 

ar ; PIITITITITITITTIITITTTITTI TTT TTL TTT 
4G 

3045 012326 010046 SETVEC: MOV RO,-(SP) ; SAVE 

3046 012330 012500 MOV (R5)+,RO :GET VECTOR ADDR 

3047 012332 012520 MOV (R5)+#,(RO)* :PUT SERV ROUTINE ADDR THERE 

3048 012334 012720 000200 MOV #200, (RO) + :DISABLE INTERR 

30469 012340 01252 MOV (R5)4, (RO) 4 [GET XMIT SERV ADDR NEXT 

3050 012342 012710 000200 MOV #200, (RO) 

3051 012346 012600 MOV (SP)+,RO RESTORE 

3052 012350 000205 RTS R5 

3053 

3054 

3055 

3056 

3057 

3058 s,eeeereerrererreereereeereeteeeeeeeeeeeeeteeeeeeeeeeeeeteeeeReee 

3059 ;WATCHDOG TIMER TO PREVENT DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 

3060 ;RETURN IF TIMED OUT 

3061 ;RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 

3062 sp, eeteeerererereerereerereteeeerereeeeeeeeeeeeetetteeeeKeeeereeeee 

3063 

3064 012352 012537 012432 TIMER: MOV (R5)*,FLGHLD GET FLAG 

3065 012356 012537 012434 MOV (R5)+,CTHLD :GET COUNT THAT FLAG SHOULD GO TO 

3067 012362 012701 000010 MOV #10,R1 

2068 012366 012700 177777 4$: MOV #-1.RO 

3069 012372 027737 000034 012434 1$: CMP @FLGHLD.CTHLD — ; RESPONDING? 

3070 012400 001411 BEQ 2$ :BR IF YES 

3071 012402 004737 012136 JSR PC ,EXAMKB 

3072 012406 005300 DEC RO ;ELSE DEC COUNTER 

3073 012410 001370 BNE 1$ :BR IF NOT TIMED OUT 

3074 012412 005237 001200 INC $DEVCT :FOR APT 

3075 012416 005301 DEC R1 

3076 012420 001362 BNE 4$ 

3077 012422 000402 BR +6 ;ELSE TIMED OUT 

3079 012424 062705 000004 2s: ADD #4,R5 ; JUMP OVER ERROR ON RETURN 

3080 012430 000205 RTS R5 

3082 012432 000000 FLGHLD: 0 FLAG 

3083 012434 000000 CTHLD: 0 :COUNT THAT FLAG MUST REACH 
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3085 ppeeeeeeeeeeerereereeeetereereeeeereeeeeeeeeeeteneneneeeeeereeee 
3086 = WATCHDOG TIMER TO — DXO FROM ENTERING AN ENDLESS WAIT LOOP 
3087 ;RETURN IF TIMED OUT 
3088 ;RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 
S560 S eeeeeeereeeetereererereeeeeeeeteereeeeeeeeeeerenteneeeeeereeees 

90 
3091 012436 0050357 012530 TIMDO: CLR DOTMO 
3092 012442 012737 000019 012526 MOV #10,CTREGI 
3093 012450 012737 177777 012526 4$: MOV #-1,CTREG 
30946 012456 005737 003262 1$: TST FIN FINISHED? 
3095 012462 001015 BNE 2% ;BR IF YES 
3096 012464 004737 012136 JSR PC,EXAMKB 
3097 012470 005337 012524 DEC CTREG sELSE DEC CIR 
3098 012474 001370 BNE 1$ ;BR IF NOT TIMED OUT 
3099 012476 005237 001200 INC $DEVCT ;FOR APT 
3100 012502 005337 012526 DEC CTREG1 
3101 012506 001360 BNE 4% 
3102 012510 005237 01253C INC DOTMO :SET FLAG 
Roe 012514 000402 BR «*6 3 TIMED OUl 
3105 012516 062716 000004 2$: ADD #4,(SP) ;BUMP RET 
sor 012522 000207 RTS PC 
3108 012524 000000 CTREG: 0O 
3109 012526 000000 CTREG1I: 0 
a 012530 000000 DOTMO: O 71 = TIMEOUT OCCURED 
3112 
3113 peeeeeeeeereeeeeeeeeeeeereeete rere eee te eee R ee eee ERE 
3114 WATCHDOG TIMER TO PREVENT DX1 FROM ENTERING AN ENDLESS WAIT LOOP 
3115 ;RETURN If TIMED OUT 
3116 ;RETURN +4 iF NOT TIMED OUT & JUMP OVER ERROR 
2117 MPITITITITITISTILITITI ILLITE TTL 
3118 
3119 012532 0065037 012620 TIMD1: CLR D1TMO 
3120 012536 012737 000010 012526 MOV #10,CTREGI 
3121 012544 012737 177777 012524 4$: MOV #-1,CTREG 
3122 012552 005737 003262 1$: TST FIN FINISHED? 
3123 012556 001015 BNE 2$ ;BR IF YES 
3124 012560 004737 012136 JSR PC ,EXAMKB 
3125 012564 005337 012524 DEC CTREG sELSE DEC CTR 
3126 012570 001370 BNE 1$ .  ~BR 1F NOT TIMED OUT 
3127 012572 005237 001200 INC $DEVCT FOR APT 
3128 012576 005337 012526 DEC CTREG1 
3129 012602 001360 BNE 4% 
3130 012604 005237 012620 INC D11MO sSET FLAG 
ay 012610 000402 BR +6 3s TIMED OUT 
3133 012612 062716 000004 2$: ADD #4 ,(SP) ;BUMP RET 
sia 012610 000207 RTS PC 
cis 012620 000000 DITMO: O 31 = TIMEOUT OCCURED 
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3138 maa totaal aa ean ainda 
3139 ; GENERAL TIMER 
tre ppeeeeereerereeerrerereererererereteeeeeeeeeeeeeeeeeeteeeneeeeres 
3142 012622 012700 177777 TIMER1: MOV #-1,R0 
3143 012626 005300 DEC RO 
3144 012630 001375 BNE 72 
Stax 012632 000207 RTS PC 
3147 ppeteeeererererereereereerererereeereereteeeeeeeeeeeeteneeeeeeeeeere 
3148 WATCHDOG TIMER TO PREVENT DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 
3149 ;RETURN IF TIMED OUT 
3150 [RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 
3151 ppeeeeeeeereeeerereeeeretrerereeeeeteeeeeeeeeeeTeeeeeeeeTeTeeee 
3152 
3153 012634 012537 012714 TIMER2: MOV (R5)+,REGHLD 3GET REG 
see 012640 012537 012716 MOV (R5)+,BITHLD ;GET BIT TO BE TESTED 
3156 012644 012701 000010 MOV #10,R1 
3157 012650 012700 177777 4$: MOV #-1,R0 
3158 012654 033777 012716 000032 1$: BIT BITHLD, @REGHLD ;BIT THERE? 

3159 012662 001011 BNE 2% :BR IF YES 

3160 012664 004737 012136 JSR PC,EXAMKB 

3161 012670 005300 DEC RO sELSE DEC COUNTER 

3162 012672 001370 BNE 1$ ;BR IF NOT TIMED OUT 

3163 012674 005237 001200 INC $DEVCT FOR APT 

3164 012700 005301 DEC R1 

3165 012702 001362 BNE 4$ 

tre 012704 000402 BR -*6 sELSE TIMED OuT 

3168 012706 062705 000004 2$: ADD #4 ,R5 ; JUMP OVER ERROR ON RETURN 
he 012712 000205 RTS R5 

3171 012714 000000 REGHLD: 0 ;DEVICE REG 

aes 012716 060000 BITHLD: 0 ;DEV REG BIT TO BE TESTED 
3174 

3175 ppt etree aeerereeetteeteteeeete ree eee eee eee eee eee eee eee eee 
3176 ;ROUTINE TO CLEAR BOTH BAD TRACK/SECTOR TABLES 

3177 po eeeeneeeeeeeereeeeeeeeere erate eee eee eee eee eee tee Ree EAT 
3178 

3179 012720 012700 002764 CLRBAD: MOV #DOBAD ,RO 

3180 012724 005020 1$: CLR (RO)+ 

3181 012726 020027 003010 CMP RO, #DOBAD+20. 

fiat 012732 001374 BNE 1$ 

3184 012734 012700 003234 MOV #D1BAD,RO 

3185 012740 005020 23: CLR (RO) + 

3186 012742 020027 003260 CMP RO,#D1BAD+20. 

Ae 012746 001374 BNE 2$ 

3189 012750 000207 R1S PC 

3190 
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3191 sp etewereerrrrrereerereeeerererrerereeteteeeereeeereeeeeoetereHee 
3192 LOAD DXO BAD TRACK/SECTOR TABLE 
4b Gy PPTTITITITITIITITITITTTITITITITITIT ITIL TTT TLTTL ett 
4 
4944 012752 010046 LDOBAD: MOV RO,-(SP) 7 SAVE 
3197 012754 012769 002764 MOV #DOBAD,RO 
3198 012760 005710 1$: TST (RO) sENTRY PRESENT? 
3199 012762 001003 BNE 2% 7BR IF YES 
3200 012764 013710 177174 MOV RXSA, (RO) sELSE STORE BAD RXSA IN TABLE 
$50) 012770 000405 BR 3% EXIT 
3203 012772 005720 23: TST (RO)+ ;BUMP PTR 
206 012774 020027 003010 CMP RO, #DOBAD+20. :AT END OF TABLE? 
3205 013000 001367 BNE 1$ :BR IF NO 
206 013002 194104 ERROR 104 710 BAD SECTORS...REPLACE 
3207 013004 012600 3$: MOV (SP)+,RO RESTORE 
3208 013006 000207 RTS PC 
3209 
3210 
3211 
3212 
3213 
3214 ppeeeeneekerereereetenereeeeeeeeeeeeee eee eee K Tere Kee eee eee 
3215 :CHECK DXO BAD TRACK/SECTOR TABLE BEFORE DOING RANDOM SEEKS. 
3216 ZF TRK/SEC IN TABLE, RETURN TO RE=CALCULATE NEW TRACK & SECTOR. 
3217 pp eteeeeereeeeeeeterteeee terete ree eee eeeeReeeee eee eeeee eee 
3218 
3219 013010 010046 CKOBAD: MOV RO,-(SP) 7 SAVE 
as5t 013012 010146 MOV R1,-(SP) 
3222 013014 013701 002546 MOV DOTRK,R1 
2223 013020 000301 SWAB R1 
esse 013022 053701 002550 BIS DOSEC,R1 
3226 013026 012700 002764 MOV #DOBAD ,RO 
3227 013032 020027 003010 1$: CMP RO, #DOBAD+20. ;END OF TABLE? 
3228 013036 001405 BEQ 2$ ;BR IF YES 
3229 013040 005710 TST (RO) ate ANY ENTRY? 
3230 013042 001403 BEQ 2% IF NO 
3231 013044 022001 CMP (RO)+,R1 ELSE COMPARE ? 
3232 013046 001371 BNE 1$ ;BR IF NO 
ath 013050 000402 BR 3$ ;ELSE DONT BUMP RET ADDR 
3235 013052 062705 000002 2$: ADD #2,R5 ;BUMP RET ADDR 
3236 013056 012601 3$: MOV (SP)+,R1 s RESTORE 
iH a) snes 012600 MOV (SP)+,RO 


13062 000205 RTS R5 
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3243 013064 010046 
3245 013066 Bie eus 


3246 013072 00571 

3247 013074 00100 

3248 013076 013710 

3249 013102 000405 

3250 

3251 013104 005720 

3252 013106 020027 

3253 013112 0013 

3254 013114 104105 

3255 0135116 012600 

3256 013120 000207 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 
013122 010046 
013124 010146 
013126 013701 
013132 000301 
013134 053701 
013140 012700 
013144 020027 
013150 001405 
013152 005710 
013154 001403 
013156 022001 
0135160 001371 
013162 000402 
013164 062705 
013170 012601 
013172 012600 
013174 000205 


PDT11-150 a 


003234 


177174 


003260 


003016 
003020 


003234 
003250 


000002 
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PROGRAM 


;,eeereererererereererereerrerteererereeeeeteeereetenereeeeereneeee 


;LOAD DX1 BAD TRACK/SECTOR TABLE 


;,eteeeeeererererereeereretererereretteekereeeeeeneeneeeeeTeReenee 


LDIBAD: MOV RO,-(SP) 7 SAVE 
MOV #D01BAD,RO 
1$: TST (RO) ENTRY PRESENT? 
BNE 2$ :BR IF YES 
MOV RXSA,(RO) sELSE STORE BAD RXSA IN TABLE 
BR 3$ sEXIT 
2s: TST (RO) + ;BUMP PTR 
CMP RO,#D1BAD+20. 1 END OF TABLE? 
BNE 1$ R IF NO 
ERROR 105 ‘40 BAD SECTORS...REPLACE 
3$: att ll ta ; RESTORE 


sp eeeeerereereeerareeerenereeeteeeeeeteeeeReeeeeeeeeeeeeeeeeeeeee 


CHECK DX1 BAD TRACK/SECTOR TABLE BEFORE DOING RANDOM SEEKS. 
SIF TRK/SEC IN TABLE, RETURN TO RE-CALCULATE NEW TRACK & SECTOR. 


so eeeeeeeareeeeeeeeeeeeerereeeeeeeeeeneteeeeeeneeeeeeeeKeteeteeese 


CKIBAD: MOV RO,-(SP) ; SAVE 
MOV R1,-(SP) 
MOV DITRK,RI 
SWAB R1 


BIS DISEC,R1 
MOV #0 1BAD ,RO 


1$: CMP RO,#DIBAD+20. ;END OF TABLE? 
BEQ 2$ :BR IF YES 
TST (RO) sELSE ANY ENTRY? 
BEQ 2$ :BR IF NO 
CMP (RO)+,R1 sELSE COMPARE? 
BNE 1$ :BR IF NO 
BR 3$ ELSE DONT BUMP RET ADDR 
2$: ADD #2,R5 ;BUMP RET ADDR 
3$: MOV (SP)+,R1 RESTORE 
MOV (SP)+,RO 
RTS R5 





SEQ 0073 
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CVKDAC.P11 16- PEB-79'1 :12 INTERRUPT HANDLERS SEQ 0074 
3288 -SBTTL INTERRUPT HANDLERS 
3289 sp reteerereereerrererrereeeeeeeereteeeeeereeReeeeteteeeeeee eee ee 
3290 >; GENERAL SERVICE ROUTINE 10 BUMP ‘INTFLG' 
3291 ; CALLING ROUTINE WILL KNOW WHAT TO DO 
3292 SpreeeererrerereeerererereererereeteeeneneReerereteretereeeerenee 
3293 
3294 013176 0052357 013204 INTSRV: INC INTFLG 
3295 013202 000002 RTI 
3296 013204 000000 INTFLG: 0 
3297 
3298 
3299 reeeeeeeererereereretereeeereeeeeeeeKeReRKeReReeeee Tere Keeeet 
3300 :PRINTER INTERRUPT HANDLER: VALUES FROM 40 THRU 176. 
3301 peeeeeerrereeererereeeetereterereteeeeeee ene eteKeeee reer eNee 
3302 
3303 013206 013737 177514 013336 PRSRV: MOV PRS,SPRS > STORE 
33046 013214 005737 013336 TST SPRS s ERROR? 
3305 013220 100002 BPL 1$ :BR IF NO 
3306 013222 104007 ERROR 7 ;PRINTER STATUS ERROR 
Sioa 013224 000002 RT] 
3309 013226 013737 013332 177516 18: MOV PRCHR,PRB ;ELSE PRINT CHAR 
3310 0613234 023727 013332 000015 CMP PRCHR,#CR ;JUST DID CR? 
3311 013242 001413 BEQ 2$ ;BR IF YES 
3312 013244 023727 013332 000012 CMP PRCHR,ALF 3; JUST DID LF? 
3313 013252 001413 BEQ 3BR IF YES 
3314 013254 023727 013332 000176 CMP PRCHR,#176 ;JUST DID LAST CHAR? 
3315 013262 001413 BEQ 4$ ;BR IF YES 
3316 013264 005237 013332 INC PRCHR ;ELSE BUMP CHAR FOR NEXT INTERRUPT 
fer0 013270 000417 BR 5$ EXIT 
3319 013272 012737 000012 013332 2%: MOV #LF,PRCHR :D0 LF NEXT 
7320 013300 000413 BR 5$ 
3321 013302 012737 000040 013332 38: MOV #40,PRCHR ;D0 SPACE NEXT 
3322 013310 0060407 BR 5$ 
3323 013312 012737 000015 013332 4$: MOV #CR,PRCHR ;D0 CR NEXT & START OVER 
3374 013320 005237 013334 INC LINCT 
3325 013324 005237 001200 INC $SDEVCT FOR APT 
3358 013330 000002 5$: RT] 
3328 013332 000000 PRCHR: 0 ;CHAR TO BE PRINTED 
3329 013334 000000 LINCT: 0 sLINE CTR 
3330 013336 000000 SPRS: 0 sSTORE PRINTER CSR 
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CVKDAC.P11 16-FEB-79 11:12 INTERRUPT HANDLERS SEQ 0075 
3331 
3332 perereeterererterererereterererereeeekeeRereeeReeeeteeeeeee Tee ee 
3333 CLUSTER TERMINAL #1 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 
geze ;eeeeeererererereretereteerereeereeeeeeenekteeeneteeeeerereeerenet 
3336 013340 042737 000100 176504 TPISRV: BIC WIE,TPIS sDISABLE _— RECV'R WILL TURN BACK ON 
3337 013346 013737 013434 176506 MOV TICHR,TP1B PRINT CHAR 
Stee 013354 000002 RT] 
3340 013356 013737 176502 013436 IKISRV: MOV TKIB,TIHLD ;STORE CHAR 
3341 013364 023737 013436 013434 CMP TIHLD,TICHR 30K? 
3342 013372 001401 BEQ 1$ BR IF YES 
to 013374 104010 ERROR 10 >CHAR COMP ERROR 
3345 013376 023727 013434 000377 1$: CMP TICHR, #377 sLAST CHAR? 
3346 013404 001403 BEQ 2$ sBR IF YES 
3347 013406 005237 013434 INC TICHR ;ELSE BUMP 
+t 99 013412 000404 BR 3$ 
3350 013414 005037 013434 2$: CLR TICHR sSTART OVER 
3351 013420 005237 001200 INC $DEVCT FOR APT 
3352 013424 052737 000100 176504 38: BIS WIE, TPIS ;ALLOW PRINTER INTERR 
seer 013432 000002 RTl 
3355 013434 000000 TICHR: O :CHAR TO XMITT 
gece 013436 000000 TIHLD: 0 ;REC'D CHAR 
3358 
3359 3 ,eeekaeraerereeeeeeeeeeeeereckeeeeeeeeeeeeeeeteeeeKekeeeeeeeeKeeeee 
3360 : CLUSTER TERMINAL #2 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 
3361 ;eeteeeeeeeeereeretereeteeeee eee eee eee eee e Kees 
3362 
2363 013440 042737 000100 176514 TP2SRv: BIC #1E,TP2S ;DISABLE INTER, RECV'R WILL TURN BACK ON 
3364 613446 013737 013534 176516 MOV T2CHR, TP2B :PRINT CHAR 
free 013454 000002 RTI 
3367 013456 013737 176512 013536 TK2SRV: MOV TK2B, T2HLD ;STORE CHAR 
3368 013464 023737 013536 013534 CMP T2HLD, T2CHR 30K? 
3369 013472 001401 BEQ 1$ BR IF YES 
tere 013474 104011 ERROR 11 ;CHAR COMP ERROR 
3372 013476 023727 013534 000377 1$: CMP T2CHR #377 sLAST CHAR? 
3373 013504 001403 BEQ 2$ :BR IF YES 
3374 013506 005237 013534 INC T2CHR sELSE BUMP 
fine 013512 000404 BR 3$ 
3377 013514 005037 013534 23: CLR T2CHR sSTART OVER 
3378 013520 005237 001200 INC $DEVCT FOR APT 
3379 013524 052737 000100 176514 3$: BIS W1E,TP2S sALLOW PRINTER INTERR 
fear 013532 000002 RTI 
3382 013534 000000 T2CHR: O sCHAR TO XMITT 
3383 013536 000000 T2HLD: O REC'D CHAR 
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CVKDAC 
CVKDAC .P11 16-FEB-79 1 :12 INTERRUPT HANDLERS SEQ 0076 
33 
3385 sp rteeeeeeererererererereererererrreeeeRererereteereAreereeeee 
3386 : CLUSTER TERMINAL #3 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 
tH pteeereerererreerereereerererereeeeeeeeeeeeeeteeeeeeeeReeeeRee 
3389 013540 042737 000100 176524 IP3SRv: BIC WIE, TP3S sDISABLE INTER, RECV'R WILL TURN BACK ON 
3390 013546 013757 013634 176526 MOV T3CHR, TP3B sPRINT CHAR 
$355 013554 000002 RTl 
3393 013556 013737 176522 013636 IK3SRV: MOV TK3B,13HLD ; STORE CHAR 
3394 013564 023737 013636 013634 CMP T3HLD,T3CHR 30K? 
3395 013572 001401 BEQ 1$ BR. IF YES 
Sane 013574 104012 ERROR 12 ;CHAR COMP ERROR 
3398 013576 023727 013634 000377 1$: CMP T3CHR #377 ;LAST CHAR? 
3399 013604 001403 BEQ 23 sBR IF YES 
3400 013606 005237 013634 INC T3CHR :ELSE BUMP 
$0) 013612 000404 BR 3$ 
3403 013614 005037 013634 2$: CLR T3CHR sSTART OVER 
3404 013620 005237 001200 INC SDEVCT FOR APT 
3405 013624 052737 000100 176524 38: BIS #1E,TP3S : ALLOW PRINTER INTERR 
scot 013632 000002 RTl 
3408 013634 000000 T3CHR: O ;CHAR TO XMITT 
re 013636 000000 T3HLD: 0 ;REC'D CHAR 
3411 
3412 ppeteeeeereeeeeeeeerereetereeeeteeeteeeeRATeeAKAAeee eee eeee eee 
3413 : ASYNC COMM PORT INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 
3414 peeeeeeeeeeeeeeeeeeeeeeeeee eee eeee eee eee eee reAAe KATE eee tees 
3415 
2416 013640 042737 000100 176614 AMXSRv: BIC #IE,AMXC sDISABLE INTER, RECV'R WILL TURN BACK ON 
3417 013646 013737 013734 176616 MOV COMCHR,AMXB sXMITT CHAR 
oe 013654 0060002 RTI 
34720 013656 013737 176612 013736 AMRSRV: MOV AMRB , COMHLD s STORE CHAR 
3421 013664 023737 013736 013734 CMP COMHLD, COMCHR 0K? 
3422 013672 001401 BEQ 1$ :BR IF YES 
ee52 013674 104013 ERROR 13 ;CHAR COMPARE ERROR 
3425 013676 023727 013734 000377 1$: CMP COMCHR ,#377 ;LAST CHAR? 
3426 013704 001403 BEQ 28 ;BR IF YES 
3427 013706 005237 013734 INC COMCHR :ELSE BUMP 
ess 013712 000404 BR 3$ 
3430 013714 005037 013734 2$: CLR COMCHR sSTART OVER 
3431 013720 005237 091200 INC $DEVCT FOR APT 
3432 013724 052737 000100 176614 38: BIS WIE, AMXC ;ALLOW XMIT INTERR 
oat 013732 000002 RTl 
3435 013734 000000 ~ COMCHR: 0 :XMIT CHAR 
3436 013736 000000 COMHLD: 0 REC'D CHAR 
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014012 
014020 
014024 


014026 


014030 
014036 
014044 
014046 
014054 
014056 


014060 
014066 
014070 
014074 


014076 
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042737 


001020 
005737 


000002 
042737 
005237 
000002 


000000 


104014 
023727 


000411 
012737 


000403 


052737 
000002 


000100 
013734 
013734 
014026 
014026 


000100 
001200 


00002C 
001200 


176622 
013736 


013736 


013734 


013734 


177777 
000100 
001200 


000100 


176624 
176626 
000377 


176624 


176624 


013736 
000026 


013734 


000377 


013734 
176620 


176624 
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INTERRUPT HANDLERS 


,;eetereerererrrerererreeteeeeereereeeekeeeteeeeeeeeeeeetereeeeet 


Syne COMM PORT INTERRUPT HANDLER: LOOP VALUES 27 THRU 377. 


,eertaekererekerererererrerereeteteeeeeeeeeeereeteteReteereereres 


SMXSRV: BIC WIE, SMXC DISABLE INTER, RECV"R WILL TURN BACK ON 
MOV ;XMITT CHAR 


COMCHR,SMXB 
CMP COMCHR #377 ;LAST CHAR? 
BNE 2$ ;BR IF NO 
TST LSTCHR 
BNE 1% 
INC LSTCHR 
BIS WIE, SMXC ;ALLOW RDY INTR SO CAN SHUT DOWN FAST 
INC SDEVCT ;FOR APT 
RTl 
1$: BIC #SEND , SMXC ;NO MORE TO SEND 
INC SDEVCT 3FOR APT 
2s: RT] 
LSTCHR: 0 3SET WHEN LAST CHAR XMIT 
SMRSRV: MOV SMRB ,COMHLD ;STORE CHAR 


only ne : IGNORE SYNC CHARS 

CMP COMHLD,COMCHR = ;0K? 

BEQ 1$ ;BR IF YES 

ERROR 14 sCHAR COMPARE ERROR 
1$: CMP COMCHR #377 ;LAST CHAR? 

BEQ 23 ;BR IF YES 

INC COMCHR ;ELSE BUMP 

BR 3$ 
2$: MOV #-1,COMCHR s INDICATE DONE 

BIC #1E,SMRC ;ALL DONE 

INC SDEVCT sFOR APT 

BR 4% 
3$: BIS WIE, SMXC ;ALLOW XMIT INTERR 
4$: RT] 


SEQ 0077 
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Wav 


WWW 
w 
— 
oO 


014162 


014164 
014170 


014172 
014200 
014206 


014214 
014222 


014224 
014230 


014232 
014236 


014240 
014242 
014244 


PDT11-150 i 


16-FEB-79 1 


005737 
100011 


013737 
013737 
013737 


032737 
001003 


000177 
000000 


000177 
000000 


000000 
000000 
000000 


177170 
177170 


177172 
177174 


177170 


177170 
177172 
177174 


000020 
000000 


000000 


014240 
014242 
014244 


014240 
014242 
014244 


177170 
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11:15 PAGE 78 


a co SO MO ame oe aan 


DISK INTERRUPT HANDLERS 
TALL DISK INTERRUPTS ENTER THRU ay a & DISPATCH TO THE 


RXSRV: 


1$: 


2%: 


DODI LP: 


DIINT: 


DIDISP: 


SRXCS: 
SRXES: 
SRXSA: 


JMP 
0 


0 


; CURRENT SERVICE alent POINT 
DODISP F 


ED 1 


OR DXO INTERRUPTS 
DIDISP FOR DX1 INTERRUPTS 
iui GENERALLY BE IN THE ORDER OF SERVICE ROUTINES BELOW. 


;eeteeeaeeereereeeeerereeteeeeeeeereeeeeeeeeeReeseneKeneeneeenese 


RXCS 
1$ 
RXCS,SRXCS 


RXES,SRXES 
> iageeats: 


RXCS 
2% 


RXCS,SRXCS 
RXES,SRXES 
RXSA,SRXSA 
MUSEL ,RXCS 
DIINT 
a0001SP 


aD1DISP 


CONTR RDY? 
;BR IF YES 
ELSE SAVE FOR ERROR TYPEOUTS 


sUNEXPECTED INTERRUPT 
GO BACK 


s ERROR? 
:BR IF NO 


ELSE SAVE FOR ERROR TYPEOUTS 


;CHECK UNIT SELECT BIT 
;BR IF INTER FROM DX1 


ELSE DISPATCH 10 DXO SERVICE ROUTINE 


:DX1 INTERRUPT DISPATCH 


s SAVE RXCS 
7 SAVE RXES 
7 SAVE RXSA 


SEQ 0078 
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CVKDAC.P11 16-FEB-79 11:12 INTERRUPT HANDLERS SEQ 0079 
3523 
3524 sp teeeereerrrererererereeeereretereerererereeeeeneeeeeereeeeeeee 
3525 ; HANDLER TO FILL THE DRIVE BUFFER FOR DXO 
3526 ;& POINT TO THE WRITE SECTOR HANDLER. 
3527 PETTTTITITITITITITITITITITETIT TIT TITTTLT TITTLE iii 
3528 
3529 014246 012763 000100 DOFBUF: MOV #100,R3 ;WORD CT 
3530 014252 013701 002544 MOV DOTRK,R1 
3531 014256 000301 SWAB R1 
3532 014260 053701 002550 BIS DOSEC 
3533 014264 012737 014312 014230 MOV sDousée 'y001SP ;POINT TO WRITE SECTOR AFTER RTI 
3534 014272 012737 000101 177170 MOV #<FBUF ‘IED, RXCS ;I1SSUE FILL BUFFER CMD 
3535 014300 010137 177172 1$: MOV R1,RXDB sFILL ENTIRE SECTOR WITH ITS ADDRESS 
3536 014304 005303 DEC R3 
3537 014306 001374 BNE 1$ 
3538 014310 000002 RTI 
3539 
3540 
3541 
3542 
3543 
3544 ppttweeeeeterererererereeeeeteeeeeeeeeeeeeeReeeee teeter eeeeeeeeee 
3545 7HANDLER TO WRITE THE SECTOR FOR DXO & POINT TO WRITE CHECK. 
3546 ppeeeeeeeeeeeeeeeeteteeeeeeeeteee tee teeta ee eeeeee eer A eee 
3547 
3548 014312 013701 002546 DOWSEC: MOV DOTRK,k1 
3549 014316 000301 SWAB R1 
3550 014320 053701 002550 BIS DOSEC,R1 
3551 014324 010137 177174 MOV R1,RXSA ;LOAD TRACK & SECTOR ADDR 
3552 014330 012737 014366 014230 MOV WDOWCHK,DODISP ;POINT TO WRITE CHECK HANDLER 
3553 014336 023727 003260 000005 CMP DXTST,# 
3554 014344 001004 BNE 1$ 
2555 014346 012737 000115 177170 MOV M<WODSEC!IE>,RXCS sONLY FOR WRITE DELETED DATA TEST 
3556 014354 000403 BR 2$ 
3557 014356 012737 000105 177170 18: MOV M<WSEC!IE>,RXCS ; ISSUE WRITE SECTOR COMMAND 
3558 014364 000002 2$: RT] 


CVKDAC 


CVKDAC.P11 


014366 


014436 


014440 
014442 


014444 


014620 
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005737 


000002 


104016 
000416 


005737 
001413 


104017 
005037 


177170 
002544 
012752 
000020 


014500 
000117 


002544 
027102 


027106 
000020 


002544 
002550 


000002 
002550 


000002 
014246 


000001 


014622 


002544 
000020 


014246 
000117 


000012 


014242 


000031 
002550 
000032 
002550 


002550 


014242 


014230 
177170 
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peeereneereerererereererereerereereeeeeeeeeeeetereereeeeetteeee 
HANDLER TO WRITE CHECK ON DXO. 
sWILL GO TO FILL BUFFER TO DO SAME SECTOR ON SOFT ERROR 
OR NEXT SECTOR ON NO ERROR OR HARD ERROR. 
TWILL GC TO READ SECTOR AFTER ALL SECTORS ON TRACK ARE WRITTEN. 
:A RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF). 


so eeeeerereeerereeeeeeeererereeeeeeeeeeeAeeeeeeenteteteeeeneresee 


DOWCHK: TST RXCS fe oly 
BPL 1$ R IN NO 
CMP DOERR, #10. ‘40 ERRORS? 
BNE 6$ :BR IF NO & TRY AGAIN 
JSR PC,LDOBAD :LOAD BAD TRK/SEC TABLE 
BIT ARNE ,SRXES > SEEK ERROR? 
BEQ 7$ :8R IF NO 
ERROR 64 HARD SEEK ERROR WRITE SECTOR 
MOV #2%,D0D1SP ;GO TO 2$ AFTER RESTORE 
MOV M<RESTOR!IE>,RXCS 
RTI 
7$: ERROR 16 HARD ERROR WRITE SECTOR 
BR 2$ :GO TO NEXT SECTOR 
1$: TST DOERR ;ANY PREV ERRORS? 
BEQ 2$ ;BR IF NO 
INC TSERR ; TOTAL SOFT ERR CT 
INC PSERR :PASS SOFT ERR CT 
BIT WRNF ,SRXES ;SEEK ERROR? 
BEQ 8$ :BR IF NO 
_— : ;SOFT SEEK ERROR WRITE SECTOR 
8$: ERROR 17 ;SOFT ERROR WRITE SECTOR 
2$: CLR DOERR 
CMP DOSEC #31 ;LAST ODD SECTOR? 
BNE 3$ ;BR IF NO 
ty oe -b0SEC ELSE DO EVEN SECTORS NOW 
3$: CMP DOSEC ,#32 :LAST EVEN SECTOR? 
BEQ 5$ :BR IF YES 
ADD #2,DOSEC ;ELSE BUMP SECTO 
4$: JMP DOF BUF :GO TO FILL BUFFER & DO ANOTHER 
5$: MOV #1,DOSEC ALL SECTORS DONE...CHECK DATA 
CLR DOERR 
CLR DOCMER 
JMP DORSEC ;G0 TO READ SECTOR HANDLER 
6$: INC DOERR 
BIT #RNF ,SRXES SEEK ERROR? 
BEQ 4$ :BR IN NO 
MOV #DOFBUF ,DODISP ;GOTO FILL BUFF AFTER RESTORE 
MOV W<RESTOR!IE>,RXCS 


SEQ 0080 
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014622 


014634 


014656 


014724 


014726 
014732 
014740 
014742 


014744 
014752 
014760 


014762 
014770 


014640 
014646 
014654 


005737 


000002 


004737 
032737 
001410 
104066 


012737 
012737 
000002 


032737 


000423 


005037 
104020 
000137 





177174 


177170 
002544 


002544 
000020 


014622 
000117 


012752 
000020 


015644 
000117 


000010 
002562 


002562 
015644 


002546 
002550 


014656 
000107 
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000012 


014242 


014230 
177170 
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amen 06 ACR het ast khice|6|C! 






:HANDLER TO READ A SECTOR ON DXO & POINT TO CHECK. 


DORSEC: MOV DOTRK,R1 
SWAB R1 
BIS DOSEC 





;eeteeereeeeeereteeereeeeerekeeeeeeeteeeeeeeeeeeeeeeeeeeeeeeeteee 








RI 
MOV R1,RXSA ;LOAD TRK & SECTOR ADDR 


MOV #DORCHK ,DODISP 
MOV W<RSEC!IE>,RXCS 


HANDLER TO READ CHECK ON DXxO. 


SU OeReeeeeeeeeeeeeeeeeeeeeeeeeeeeeereteeeeKeeteeeeAKetHeReeeteee 













:POINT TO READ CHECK HANDLER 
; ISSUE READ SECTOR COMMAND 


sWILL GO TO NEXT SECTOR/TRK IF HARD ERROR. 

WILL GO TO EMPTY BUFFER IF NO ERROR OR SOFT ERROR. 
;WILL GO TO READ SECTOR (SAME) ON ERROR. 

:A RESTORE 1S PERFORMED AFTER ANY SEEK ERROR (RNF). 


see eee Reeeeeeeeeeeeeeeeeeeeee reese eketeeektkeeteeeteeteeKrereees 


DORCHK: TST RXCS > ERROR? 
BPL 1$ :BR IF NO 
CMP DOERR,#10. ;10 ERRORS? 
BEQ 3$ :BR IF YES 
INC DOERR ELSE DO AGAIN 
BIT ARNE ,SRXES Je ERROR? 
BEQ DORSEC IF NO 
MOV #DORSEC ,DODISP ELSE DO RESTORE & RET TO RD SEC 
MOV #<RESTOR! 1E>,RXCS 
RT] 
3$: JSR PC,LDOBAD ;LOAD BAD TRK/SEC TABLE 
BIT ARNE ,SRXES SEEK ERROR? 
BEQ 7$ :BR IF NO 
ERROR 66 ; SEEK ERROR READ SECTOR 
MOV #DONEXT,DODISP ;DO RESTORE 
MOV M<RESTOR! 1E>,RXCS 
RT] 
7$: BIT MCRC,SRXES :CRC ERROR? 
BEQ 10$ :BR IF NO 
INC DOCRC ELSE SET FLAG 
ERROR 106 ;HARD CRC ERROR 
BR 2$ ;& GO TO EMP BUFF TO CHK DATA 
10$: CLR DOCRC 
ERROR 20 ;HARD READ ERROR 


DONE XT 
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CVKDAC.P11 16-FEB-79 11:12 INTERRUPT HANDLERS SEQ 0082 
3667 
3668 015014 005737 002544 1$: TST DOERR : ANY Sa ERRORS? 
3669 015020 001413 BEQ 23 R NO 
3670 015022 005237 027102 INC TSERR  OTAL SOFT ERR CT 
3671 015026 005237 027106 INC PSERR PASS SOFT ERR CT 
3672 015032 37 000020 014242 Bll ARNE ,SRXES ;SEEK ERROR? 
3673 015040 001462 BEQ 9$ :BR IF NO 
3674 015042 104067 ERROR 67 ;SEEK ERROR READ SECTOR 
3675 015044 000401 BR 2$ 
sor8 015046 104021 9$: ERROR 21 ;SOFT ERROR READ SECTOR 
3678 015050 005037 002544 2$: CLR DOERR 
3679 015054 023727 003260 000005 CMP DXTST,#5 :DOING WRITE DELETED DATA TESTS? 
3680 015062 001005 BNE 6$ :BR IF NO 
3681 015064 032737 000040 177172 BIT #D0D,RXES ; ‘DELETED DATA’ SET? 
3682 015072 001001 BNE 6$ :BR IF YES 
ar 015074 104052 ERROR 52 :DD NOT SET 
ret 015076 600137 015102 o$: JMP DOEBUF ;GO TO EMPTY BUFFER 
3687 
3688 
3689 
3690 
3691 
3692 pp eeeeeeeeeeee eee eee eee tetera eee eee eee eee eee Tee AA eee ee 
3693 ; HANDLER TO EMPTY THE DRIVE BUFFER FOR Dx0 
2694 78 POINT TO THE CHECK DATA HANDLER. 
3695 PUTTTITISTITITITITITITETITT ITLL ELL LLL 
3696 
3697 015102 012703 000100 DOEBUF: MOV #100,R3 sWORD CT 
3698 015106 012701 002564 MOV #DOBUF , R1 ;BUFFER ADDRESS 
2699 015112 012737 015140 014230 MOV #DOCDAT, DODISP ;POINT TO CHK DATA AFT INTER. 
3700 015120 012737 000103 177170 MOV #<EBUF I IE>, RXCS ;I1SSUE EMPTY BUFFER CMD 
3701 015126 013721 177172 1$: MOV RXDB,(R1)+ :GET WORD & STORE IT 
3702 015132 005303 DEC R3 
3703 015134 001374 BNE 1$ 
3704 015136 000002 RT] 








CVKDAC 
CVKDAC.P11 



















3708 

3709 

3710 

3711 

3712 

3713 

3714 015140 
3715 015144 
3716 015150 
3717 015154 
3718 015156 
3719 015162 
3720 015166 
3721 015170 
3722 015172 
3723 015176 
3724 015202 
3725 015206 
3726 

3727 015210 
3728 015212 
3729 015214 
3730 015220 
3731 

3732 015222 
3733 015226 
3734 015230 
3735 015234 
3736 015236 
3737 015240 
3738 

3739 015242 
3740 015250 
3741 015252 
3742 015260 
374% 015262 
3744 015264 
3745 

3746 015266 
3747 015270 
3748 

3749 015272 
3750 015276 
3751 015300 
3752 015302 
3753 

3754 015304 
3755 015310 
3756 015312 
3757 015316 
3758 015322 


005037 


000405 


005303 
001403 
062702 
000762 


005737 
001421 
005737 
001402 
104107 
000431 


023727 


000417 


104022 
000415 


005737 
001402 
104110 
000410 


005737 


104023 





PDT11- to +t leat 
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002552 
000100 
002546 
002550 
002564 


002556 
002560 
002552 


000002 


002552 
002562 


002554 


003260 


002562 


002554 


027102 
027106 


000012 
000003 


MACY11 306(1063) 
INTERRUPT HANDLERS 


F 
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-eeeterereererererererererereeeeeeeeeeeeeeeeeeeeteeteeereteereeee 


; : HANDLER TO CHECK DATA AFTER EMPTY BUFFER CMD ON DXO. 
WILL GO TO NEXT SECTOR HANDLER WHEN NO ERR OR HARD ERR. 
OR TO READ SECTOR (SAME) WHEN SOFT ERR. 


THIS RCUTINE IS ALSO ENTERED FROM A CRC ERROR FROM A READ COMMAND. 


;,eeeeererereeeeeereeereeeererereeeeereeeneeeeeeeeteeeeereteeeeses 


DOCDAT: 


2$: 


3%: 


148: 


8$: 


4$: 


15$: 


CLR 





DOCMER 


DOSEC,R1 
#DOBUF ,R2 
eat 


2 
R1,DOEXP 
(R2) ,DOREC 
DOCMER 

3$ 


DOCERR,#10. 
7$ 


DXTST,#3 
8 


DOCERR 
5$ 


TSERR 
PSERR 
23 


TELSE. 








WORD CTR 


;R1_ NOW HAS EXPECTED DATA 
;GET BUFFER ADDR 

>; COMPARE OK? 

sBR IF YES 

ELSE SAVE 


ANY COMP ERR? 


:BR IF NO 
; HERE — CRC ERROR? 
N 


:BR IF 
;DATA CRC ERROR 


10 ERRS YET? 
:BR IF NO 
oe ae ee INIT TEST? 
INITIALIZE ERROR 


s;HARD ERROR DATA COMPARE 


++ A FROM CRC ERROR? 
CRC ERR WITH DATA OK 


;ANY PREV ERR? 

BR 1F NO 

; TOTAL SOFT ERR CT 
:PASS SOFT ERR C1 


:SOFT ERROR DATA COMP 













CVKDAC 
CVKDAC P11 
3759 
3760 015324 
3761 015330 
3762 015334 
3763 
3764 015340 
3765 015344 
3766 015352 
3767 015354 
3768 
3769 015360 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 015364 
3781 615370 
3782 015374 
3783 015402 
3784 015404 
3785 015412 
3786 015414 
3787 015422 
3788 015424 
3789 015432 
3790 
2791 015436 
3792 015444 
793 015446 
3794 015452 
3798 015456 
3796 015462 
3797 015464 
3798 015470 
3799 015474 
3800 015502 
3801 015504 
3802 015510 
3803 015516 
3804 
3805 015520 
3806 015526 
3807 015530 
3808 015534 
3809 015540 
3810 015544 
3811 015550 
3812 015556 


PD111-150 Aes + nasi 


16-FEB-79 1 


005037 


000137 
032777 


000414 
032777 


000002 


002554 
002562 
015644 


002554 
003260 


014622 
016002 


002544 
002552 
002550 


000002 
002550 


000002 
014622 


010000 


020266 
020721 
002546 


021011 
003262 
002546 


002546 
000001 


010000 


020266 
020726 
021011 
002540 
000100 


000003 


000031 
002550 
000032 
602550 


163474 


003264 


002550 


163412 


177170 


67 
' 


MACY11 306(1063) 16-FEB-79 11:13 PAGE 84 
INTERRUPT HANDLERS 
5$: CLR DOCERR 
CLR DOCRC 
JMP DONE XT 
7$: INC DOCERR 
CMP DXTST,#3 ;DOING INIT TEST? 
BEQ 12% :BR IF YES 
JMP DORSEC sELSE READ SECTOR OVER AGAIN 
12$: JMP DODUN ;ALL DONE 


peteeeeeeereeeereeeeeerererereeeeeeereeeteeeeeeeeeeeeeeTeeeNee 
: HANDLER TO SETUP NEXT SECTOR/TRACK FOR DxO. 
sWILL GO TO READ SECTOR (NEXT) IF ALL SECTORS ON TRACK NOT DONE. 
WILL GO TO FILL BUFFER (NEXT TRACK) IF ALL SECTORS ON TRACK DONE. 
;WILL SHUT OFF DRV INTERRUPTS IF ALL TRACKS DONE, WITH A MESSAGE. 


,eeeeeeeeteeeeeeeeeeeeeeeeeeeeeeeeeteteekeeKKeeeekeeKeekeeeeeeeee 


DONXT?: CLR DOERR 
CLR 


DOCMER 
CMP DOSEC,#31 ;LAST ODD SECTOR? 
BNE 1$ ;BR IF NO 
ty eee sELSE DO EVEN SECTORS NOW 
1$: CMP DOSEC, #32 ;LAST EVEN SECTOR? 
BEQ 3$ ;BR IF YES 
ADD #2,D0SEC ;ELSE BUMP SECTOR 
23: JMP DORSEC 7GO READ SECTOR 
3$: BIT #B1T12,aSWR >SKIP TYPEOUT IF NOT SET 
BEQ 6$ 
TYPE ,DRVO 
TYPE ~TRK 
MOV DOTRK,-(SP) 7;SAVE DOTRK FOR TYPEOUT 
TYPDS 3:GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE ,DUN 
6$: INC FIN ;SETUP TO GO TO Dx! 
CMP DOTRK ,MAXTRK sLAST TRACK? 
BEQ 4$ ;BR IF YES 
INC DOTRK ;BUMP TRACK 
MOV #1,D0SEC s INIT SECTOR 
BR 5$ 
4$: BIT #B1T12,aSWR s;SKIP TYPEOUT IF NOT SET 
BEQ 7$ 
TYPE ,DRVO 
TYPE »PATT 
TYPE ,DUN 
7$: INC DOPAT ;PATT DONE FLAG 
5$: eit WIE ,RXCS ;DISABLE DXO INTERRUPTS 


SEQ 0084 


au 






C¥KDAC 
CVKDAC.P11 


3813 
3814 
3815 
3816 
3817 
3818 015560 005037 
3819 015564 005037 
3820 015570 005237 
3821 015574 005237 
3822 015600 023737 
3823 015606 001012 
3824 015610 032777 
3825 015616 001406 
3826 015620 104401 
3827 015624 104401 
3828 015630 104401 
3829 015634 042737 
3830 015642 000002 
3831 
3832 
3835 
3834 
3835 
3836 015644 023727 


0 

015652 001644 
3838 015654 023727 

015662 001736 

0 000446 


002544 
002552 
003262 
002542 
002542 


010000 
020266 
020741 


021011 
000100 


003260 
003260 


PDT11-150 EXERCISER 
16-FEB=-79 11:12 


003266 
163322 


177170 


000001 
000002 
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--aeerererererrtrerertererereerereeeretereneeeetetereeeteeeeeeeeetes 


s;HANDLER TO SETUP TO GO TO NEXT RANDOM TRACK/SECTOR FOR DXO0. 


;, eeeekeerererererererereteeeerreteereeeeeeeeeeeeeeenekeneneeerene 


DONXT2: CLR 
CLR 


DONEXT: CMP 
B 


FIN ;SETUP TO GO TO DX! 
DOCNT 

DOCNT ,MAXSK PID ALL SEEKS? 

1$ ;BR IF NO 

+ ‘linea :SKIP TYPEOUT IF NOT SET 


,DRvO 
RANDOM 


,DUN 
MIE, RXCS DISABLE DXO INTERRUPTS 


DXTST,#1 











(ase ee ey 


SEQ 0085 


CVKDAC 


CVKDAC.P11 


0157¢4 
015772 
016000 


016002 
016006 
016014 


016016 
016022 
016030 


PDT11=150 ne 


1o-FEB-79 1 


012737 


012737 
012737 
000002 


012737 
012737 
000002 


012737 
012737 
006002 


012737 
012737 
000002 


012737 
012737 
000002 


005237 
042737 
000002 


105237 
042737 
000002 


046032 


016002 
000111 


016002 
000113 


016002 
000105 


003262 
000100 


003262 
000120 


177174 


014230 
177170 


177170 


177170 


Be 
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,;eeeereerererererererererertererrrereeeeterereeeeeeteeeecrereeee 


: HANDLER TO SETUP INITIALIZE COMMAND TEST 


;eeeteretereecrrerereereteteeteeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeee 


DOINIT: MOV #46032 ,RXSA ; TRY TO FAKE DRIVE TO GO TO TRK 76 SEC 26 
; INIT SHOULD GO TO TRK 1, SEC 1. 
MOV #DODUN,DODISP ;POINT TO DONE HANDLER 
MOV #<INITAL!IE>,RXCS :DO INIT COMMAND 


RTI 


;,eeeererrrteneeeeeerererteeeeeeeeeeeeeeeKeeteeeeeeteneeeeeeeeeee 


;HANDLERS TO SETUP RESTORE COMMAND TEST 


s etree etereeererereeeteeeeeeereeeeeeeteereeeeeteKeteeeeeeteReeene 


DOREST: MOV #DODUN,DODISP ;POINT TO DONE HANDLER 


MOV M<RESTOR!IE>,RXCS 
RT] 
DIREST: MOV #D1DUN,D1DISP 
rH} M<RESTOR!IE!DX1>,RXCS 


;,eeeeerereteeekeeeerteeeeeeeeeeeeeeeee eee eeneeeeeeeeKe eee 


sHANDLER TO SETUP READ STATUS COMMAND TEST 


PTITETISTITTIIIITTITITILITITITIT ITLL ITIL TTT TTT e tii 


DOSTAT: MOV MDODUN,DODISP ;POINT TO DONE 
= M<RSTAT!IE>,RXCS ;D0 READ STAIUS COMMAND 


pp eteeerereretereererereeeeeeereeteke eee eee eneeeeeeeeeee eee 


;HANDLER TO START INVALID ADDRESS TESTS 


py tteeeneeeerereteretereteteteeeteeeeeeeeeeeeneeeeeeeeeeteee teens 


DOINV: MOV #DODUN,DODISP ;POINT TO DONE 
a M<WSECIIE>,RXCS ;D0 WRITE SECTOR COMMAND 


Ppeeeeerererereerererereerereereeeee eee eee e REET R EEE EEE ERT 
;HANDLERS TO FINISH INITIALIZE, RESTORE, WRITE DELETED DATA, 
;READ STATUS & INVALID ADDRESS TESTS. 


ps ,eeeewererereteeeeeeneerereeereKereeteeeeaeeeeeeeteeeeeeereeeeee 


DODUN: INC FIN SET DONE FLAG 

if #IE,RXCS ;DISABLE FURTHUR DXO INTERRUPTS 
DIDUN: INC FIN 

BIC M<ITE!DM1>,RXCS 

RT] 


SEQ 0086 


es 


CVKDAC 

CvKDAC.P11 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 016032 
3904 016036 
3905 016042 
3906 016044 
3907 
3908 016050 
3909 016054 
3910 016056 
3911 016062 
3912 016064 
3913 
3914 016070 
3915 016076 
3916 016104 
3917 616110 
3918 016112 
3919 016114 
3920 
3921 
3922 
3923 
3924 
3925 
3926 016116 
3927 016122 
3928 016124 
3929 016150 
3930 016134 
3931 016142 
39%2 016150 
3933 


PDT11-150 A) wena 


16-FEB-79 1 


052701 
012737 


000002 


013701 


00000? 


000109 
003016 


003020 
003272 
003274 
100000 
016116 


000121 
177172 


003016 


003020 
177174 
016152 
000125 
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-w#rterrertererrererrrerererreeeeeeeeeeeteeekteeeeeeneeeteteeeeeneeeees 


:WANDLER TO FILL THE DRIVE BUFFER FOR DX! 
7@ POINT TO THE WRITE SECTOR HANDLER. 


PUITITITITITITITITITITITITELITTITTTITILI TIT ETELT iii 


DIFBUF: MOV #100,R3 sWORD CT 
MOV DITRK,R1 
SWAB R1 
BIS DISEC,RI 
TST COMP 1 ;DONT SET BIT15 IN COMPATABILTIY TESTS 


2 
BIS #B1T15,R1 310 DISTINGUISH DX1 DATA FROM DXO DATA 


2$: MOV MDIWSEC,DIDISP ;POINT TO WRITE SECTOR AFTER RTI 
MOV M<FBUF!IE!DX1>,RXCS ; ISSUE FILL BUFFER CMD 
1$: MCV R1,RXDB ;FILL ENTIRE SECTOR WITH ITS ADDRESS 
DEC R3 78 BIT 15 SET 
BNE 1$ 
RTI 


so eeeeeeerererereseseeereeeeneeeteteeeeeeeeeeeeeeeeteetineeee eee ee 


;HANDLER TO WRITE THE SECTOR FOR DX1 & POINT TO WRITE CHECK. 


PTITITITTITITITITITITITLITTLITTLL TTI 


DIWSEC: MOV DITRK,R1 
SWAB 


R1 
BIS DISEC,R1 
MOV R1,RXSA ;LOAD TRACK & SECTOR ADDR 
MOV MDIWCHK,DIDISP ;POINT TO WRITE CHECK HANDLER 
ao M<WSEC!IE!DX1>,RXCS ISSUE WRITE SECTOR COMMAND 


SEQ 0087 


K 7 
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CVKDAC 
CVKDAC.P11 16-FEB-79 11:12 INTERRUPT HANDLERS SEQ 0088 
3934 ppteereerereeererereeererereeeereeetereeeeeeeeeeeereReReeeETTe ee 
3935 HANDLER TO WRITE CHECK ON DX1. 
3936 sWILL GO TO FILL BUFFER TO DO SAME 3h ON SOFT ERROR 
3937 ;OR NEXT SECTOR ON NO ERROR OR HARD ERR 
3938 sWILL GC TO READ SECTOR AFTER ALL SECTORS “ON TRACK ARE WRITTEN. 
3939 3A RESTORE 1S PERFORMED AFTER ANY SEEK ERROR (RNF). 
3940 i eeeeeeeeeereeeereetereeresrterteereeeteeeeenteneereeretereeeees 
3941 
3942 016152 005737 177170 DIWCHK: TST RXCS 7 ERROR? 
3943 016156 100024 BPL 1$ :BR IN NO 
3944 016160 023727 003014 000012 CMP DIERR,#10. 310 ERRORS? 
3945 016166 001072 BNE 6$ :BR IF NO & TRY AGAIN 
3946 016170 004737 013064 JSR PC,LDIBAD ;LOAD BAD TRK/SEC TABLE 
3947 016174 032737 000020 014242 BIT ARNE ,SRXES : SEEK ERROR? 
3948 016202 001410 BEQ 7$ ;BR If NO 
3949 016204 104070 ERROR 70 ;SEEK ERROR WRITE SECTOR 
3950 016206 012737 016264 014236 MOV #2%,D1DI1SP ;RET TO 2% AFT RESTORE 
3951 016214 012737 000137 177170 MOV #<RESTOR! IE!DX1> RXCS 
sect 016222 000002 RTI 
3954 016224 104024 7$: ERROR 24 ;ERROR WRITE SECTOR 
444 016226 000416 BR 23 :GO0 TO NEXT SECTOR 
3957 016230 005737 003014 1$: TST DIERR ;ANY PREV ERRORS? 
3958 016234 001413 BEQ 2$ :BR IF NO 
3959 016236 005237 027102 INC TSERR ; TOTAL SOFT ERR CT 
3960 016242 005237 027106 INC PSERR PASS SOFT ERR CT 
3961 016246 032737 000020 014242 BIT #RNF ,SRXES : SEEK ERROR? 
3962 016254 001402 BEQ 8$ :BR IF NO 
3963 016256 104071 ERROR 71 ;SEEK ERROR WRITE SECTOR 
3964 016260 000401 BR 2$ 
ad 016262 104025 8$: ERROR 25 sERROR WRITE SECTOR 
3967 016264 005037 003014 2$: CLR DIERR 
3968 016270 023727 003020 000031 CMP DISEC,#31 ;LAST ODD SECTOR? 
3969 016276 001004 BNE 3$ :BR IF NO 
3970 016300 012737 000002 003020 MOV #2,D1SEC sELSE DO EVEN SECTORS NOW 
3971 016306 000407 BR 4% 
3972 016310 023727 003020 000032 3$: CMP DISEC, #32 ;LAST EVEN SECTOR? 
3973 016316 001405 BEQ $ :BR IF YES 
3974 016320 062737 000002 003020 ADD #2,D1SEC sELSE BUMP SECTOR 
Sore 016326 000137 016032 4$: JMP D1F BUF 3GO0 TO FILL BUFFER & DO ANOTHER 
3977 016332 012737 000001 003020 S$: MOV #1,D1SEC sALL SECTORS DONE...CHECK DATA 
3978 016340 005037 003014 CLR DIERR 
3979 016344 005037 003022 CLR DICMER 
asa 016350 000137 016406 JMP DIRSEC 3G0 TO READ SECTOR HANDLER 
3982 016354 005237 003014 6$: INC DIERR 
3983 016360 032737 000020 014242 BIT ARNE ,SRXES 7 SEEK ERROR? 
3984 016366 001757 BEQ 4% :BR IF NO 
3985 016370 012737 016032 014236 MOV MDIFBUF ,DIDISP ;RET TO FILL BUFF AFT RESTORE 
3986 016376 012737 000137 177170 MOV #<RESTOR'IE'DXI>, RXCS 
3987 016404 000002 RT] 


CVKDAC 

CVKDAC.P11 
3988 
3989 
3990 
3991 
3992 
3993 016406 
3994 016412 
3995 016414 
3996 016420 
3997 
3998 016424 
3999 016432 
4000 016440 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4908 
4009 
4010 
4011 
4012 016442 
4013 016446 
4014 016450 
4015 016456 
4016 016460 
4017 016464 
4018 016472 
4019 016474 
4020 016502 
4021 016510 
4022 
4023 016512 
4074 016516 
4025 016524 
4026 016526 
4027 
4028 016530 
4029 016536 
4030 016544 
4031 
4032 016546 
4033 016554 
4034 916556 
4035 016562 
4036 016564 
4037 
4038 016566 
4039 016572 
4040 016574 


PDT11-150 — 


1ocFEB- 79 1 


013701 
000301 
053701 
010137 
012737 
012737 
000002 


005737 


000002 
004737 


104072 
012737 
012737 
000002 


032737 


000423 


005037 
104026 
000137 


003016 


003029 
177174 


016442 
000127 


177170 
003014 


003014 
000020 


016406 
000137 


013064 
000020 


003032 
017376 


000012 
014242 


014236 
177170 


014242 


| 
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,;, eeeeeererrrreerrrerrererreeterereeerreteneeeteneeeeeneeerenenere 


: HANDLER TO READ A SECTOR ON DX1 & POINT TO CHECK. 


peeeenerereererrerereerereeeerererereeeeeeeereeeerenererereeeere 
DIRSEC: MOV DITRK,RI 
SWAB R1 


BIS DISEC, R1 
MOV R1,RXSA ;LOAD TRK & SECTOR ADDR 


MOV MDIRCHK,DIDISP ;POINT TO READ CHECK HANDLER 
MOV M<RSEC!IE!DX1>, RXCS ISSUE READ SECTOR COMMAND 


peeeeneeeerreeeeeeererrerereereeeeeeeeeeeeneeReeeeeeeeeeneeeeeee 
HANDLER TO READ CHECK ON DX1. 
sWILL GO TO NEXT SECTOR/TRK IF HARD ERROR. 
;WILL GO TO EMPTY BUFFER IF NO ERROR OR SOFT ERROR. 
SWILL GO TO READ SECTOR (SAME) ON ERROR. 
A RESTORE 1S PERFORMED AFTER ANY SEEK ERROR (RNF). 


PL eeeeeeeeeeteeeaeeeeeee eee eee eeKkeeKeteeeeeeeAteAReeteteaes 


DIRCHK: TST RXCS 7 ERROR? 
BPL 1$ :BR IF NO 
CMP DIERR,#10. ;10 ERRORS? 
BEQ 3$ BR IF YES 
INC DIERR ELSE TRY AGAIN 
BIT WRNF ,SRXES ;SEEK ERROR? 
BEQ DIRSEC : 


:BR IF NO 
MOV MDIRSEC,DIDISP ;ELSE DO RESTORE & RET TO RD SEC 
MOV M<RESTOR! IE!DX1>,RXCS 


RT] 
3$: JSR PC,LD1BAD ;LOAD BAD TRK/SEC TABLE 
BIT WRNF ,SRXES ; SEEK ERROR? 
BEQ 7$ :BR IF NO 
ERROR 72 ; SEEK ERROR READ SECTOR 
MOV MDINEXT,DIDISP ;DO RESTORE 
MOV M<RESTOR! 1E!DX1>,RXCS 
RTI 
7$: BIT #CRC,SRXES :CRC ERROR? 
BEQ 10$ :BR IF NO 
INC DICRC sELSE SET FLAG 
ERROR 111 HARD CRC ERROR 
BR 2% ;& GO TO EMP BUFF TO CHK DATA 
10$: CLR DICRC 
ERROR 26 ;HARD READ ERROR 


JMP DINEXT 


SEQ 0089 


n 7 
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CVKDAC 
CVKDAC.P11 =: 16-FEB-79 12:12 INTERRUPT HANDLERS SEQ 0090 

4041 

4042 016600 005737 003014 1$: TST DIERR ;ANY PREV ERRORS? 

4043 016604 001413 BEQ 2$ :BR IF NO 

4044 016666 005237 027102 INC TSERR ZTOTAL SOFT ERR CT 

4045 016612 005237 027106 INC PSERR SPASS SOFT ERR CT 

4046 016616 032737 000020 014242 BIT WRNF ,SRXES [SEEK ERROR? 

4047 016624 001462 BEQ 9$ :BR IF NO 

4048 016626 104073 ERROR 73 :SEEK ERROR READ SECTOR 

4049 016630 000401 BR 2$ 

4050 016632 104027 9$: ERROR 27 ;SOFT ERROR READ SECTOR 

4052 016634 005037 003014 28: CLR DIERR 

4053 016640 000137 016644 JMP DIEBUF :G0 TO EMPTY BUFFER 

4055 

4056 

4057 

4058 

4059 

4060 poe teaeeeeakeeeeeeeeererereeeeeereeeeeeeeeeteeeeKeeeeeteneeeeAeees 

4061 ; HANDLER TO EMPTY THE DRIVE BUFFER FOR DX! 

4062 :& POINT TO THE CHECK DATA HANDLER. 

4063 SSR eeaaeeeeeee eee Kearse eeeeeeeeeeKeekekKeKkeKeeteeteeeeeekeae 

4064 

4065 016644 012703 000100 DIEBUF: MOV #100,R3 :WORD CT 

4066 016650 012701 003034 MOV #D1BUF ,R1 [BUFFER ADDRESS 

4067 016654 012737 016702 014236 MOV #DICDAT,DIDISP :POINT TO CHK DATA AFT INTER. 

4068 016662 012737 000123 177170 MOV #<EBUF 'IE!DX1>,RKCS :ISSUE EMPTY BUFFER CMD 

4069 016670 013721 177172 1$: MOV RXDB,(R1)+ :GET WORD & STORE 17 

4070 016674 005303 DEC R3 

4071 016676 001374 BNE 1$ 

4072 016700 000002 RTI 


CVKDAC 
CVKDAC.P11 


Pwr —O OSU wr 


BERSERK ELL SES 
— es Ss es ss 
PO RSPR Py — tO? OS ot 
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005037 


053701 
005737 


052701 
012702 


000762 
005737 


000415 
005737 


104031 


003022 
its 
003020 
003272 
003274 
10000C 
003054 
003026 


003030 
003022 


000002 


003022 
003032 


003024 


003032 


003024 


027102 
027106 


000012 
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3 ee aa  Geaee GAGE GA e EePae Eee tae te Ge ee 
; HANDLER TO CHECK DATA AFTER EMPTY BUFFER CMD ON D 

sWILL GO TO NEXT SECTOR HANDLER WHEN NO ERR OR WARD NEAR. 

:OR TO READ SECTOR (SAME) WHEN SOFT ERR. 

bon RCUTINE 1S ALSO ENTERED FROM A CRC ERROR FROM A READ COMMAND. 


,eeeeeereereterereererertererererereneeeereereeeKeenereeeeeereee 


DICDAT: CLR 
MOV 


1$: CMP 


23: DEC 


3$: TST 


14$: CMP 


4$: TST 


15$: TST 


DICMER 
#100,R5 
DITRK,R1 
R1 
DISEC,R1 
COMP 1 
6% 
COMP2 
6$ 
#B1T15,R1 
#O1BUF ,R2 
R2) 


R1,D1EXP 
(R2) ,DIREC 


7 
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;WORD CTR 


;DONT SET BIT15 IN COMPATABILITY TESTS 


;TO DISTINGUISH DX1 DATA FROM DXO DATA 


;GET BUFFER ADDR 
;COMPARE OK? 

:BR IF YES 

sELSE SAVE 


on if 0 ERR? 
;HERE FROM CRC ERROR? 
:BR IF NO 


l 
:DATA CRC ERROR 


sELSE, 10 ERRS YET? 
:BR IFN 
;HARD ERROR DATA COMP 


;HERE FROM CRC ERROR? 
:BR IF NO 
CRC ERR WITH DATA OK 


;ANY ERR? 


; TOTAL SOFT ERR CT 
PASS SOFT ERR CT 
;SOFT ERROR DATA COMP 


SEQ 0091 


ee 


8 8 
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CVKDAC.P11 «= 16=FEB-79 11:12 INTERRUPT HANDLERS SEQ 0092 
4125 
4126 017072 005037 003024 5$: CLR DICERR 
4127 017976 005037 003032 CLR DICRC 
4128 017102 000137 017376 JMP DINEXT 
4130 017196 005237 003024 7$: INC DICERR 
4131 017112 000137 016406 JMP DIRSEC ;READ SECTOR OVER AGAIN 
4133 
4134 ,;eeeeereeeeeereeteeeeeeerereeeteeeeeeekeceeeeeeeKeeeeeteeteeeeees 
4135 [HANDLER TO SETUP NEXT SECTOR/TRACK FOR DX1. 
4136 ;WILL GO TO READ SECTOR (NEXT) IF ALL SECTORS ON TRACK NOT DONE. 
4137 WILL GO TO FILL BUFFER (NEXT TRACK) IF ALL SECTORS ON TRACK DONE. 
4138 :WILL SHUT OFF DRV INTERRUPTS IF ALL TRACKS DONE, WITH A MESSAGE. 
4139 ps, et teaeeaerereeeeeeeeeeeeeeeeeeeeeteaeerKeeteeeeKeKeeeneeeeAeeeeee 
4140 
4141 017116 005037 003014 DINXT1: CLR DIERR 
4142 017122 005037 003022 CLR DICMER 
4143 017126 023727 003020 000031 CMP DISEC,#31 ;LAST ODD SECTOR? 
4144 017134 001004 BNE 1$ :BR IF NO 
4145 017136 012737 000002 003020 MOV #2 ,DISEC ZELSE DO EVEN SECTORS NOW 
4146 017144 000407 BR $ 
4147 617146 023727 003020 000032 18: CMP DISEC,#32 ;LAST EVEN SECTOR? 
4148 017154 001405 BEQ 3$ :BR IF YES 
4149 017156 062737 000002 003020 ADD #2 01SEC ZELSE BUMP SECTOR 
4150 017164 000137 016406 2%: JMP DIRSEC :G0 READ SECTOR 
4 
4152. 017170 032777 010000 161742 38: BIT #B1T12,aSwR ;SKIP TYPEOQUT IF NOT SET 
4153 017176 001411 BEQ ab 
4154 017200 104401 020273 TYPE =, DRV1 
4155 0172046 104401 020721 TYPE =, TRK 
4156 017210 013746 003016 MOV DITRK,-(SP) ::SAVE DITRK FOR TYPEOUT 
4157 0172146 104405 TYPDS ::GO TYPE-=DECIMAL ASCII WITH SIGN 
4158 017216 104401 021011 TYPE —_, DUN 
4159 0°7222 005237 003262 6$: INC FIN ;SETUP TO GO TO DXO 
4160 017226 023737 003016 003264 CMP DITRK,MAXTRK = LAST TRACK? 
4161 017234 001406 BEQ 4$ :BR IF YES 
4162 017236 005237 003016 INC DITRK :BUMP TRACK 
4163 017242 012737 000001 003020 MOV #1,DISEC :INIT SECTOR 
“164 017250 000414 BR 5$ 
416 
4166 017252 032777 010000 161660 4s: BIT #B1T12,aSwR ;SKIP TYPEOUT IF NOT SET 
4167 017260 001406 BEQ 7$ 
4168 017262 104401 020273 TYPE =, ORV 
4169 017266 104401 020726 TYPE PATT 
4170 017272 104401 021011 TYPE —_, DUN 
4171 017276 005237 003010 7$: INC D1PAT ;PATT DONE FLAG 
4172 017302 042737 000120 177170 5$: BIC W<IE'DXI>,RXCS : DISABLE DX? INTERRUPTS 
4178 017310 000002 RTI 





CVKDAC 

CVKDAC.P11 
4175 
4176 
4177 
4178 
4179 
4180 017312 
4181 017316 
4182 017322 
4183 017326 
4184 017332 
4185 017340 
4186 017342 
4187 917350 
4188 017352 
4189 017356 
4190 017362 
4191 017366 
4192 017374 
4193 
4194 
4195 
4196 
4197 617376 
4198 017404 
4199 017406 
4200 
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000002 


023727 
001644 
000741 


003014 


003012 
010000 
020273 
020741 


021011 
000120 


003260 


— 


003266 
161570 


177170 


000001 
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INTERRUPT HANDLERS 


;,eeeererereerererererereteerererererereretetereteeereeeeereeeeee 


;HANDLER TO SETUP TO GO TO NEXT RANDOM TRACK/SECTOR FOR DX1. 


s,eeeeaeeererereeererrenereereetereeerereeeeeeteeeneeeeeereeeeeeee 


DINXT2: CLR 
CLR 


DINEXT: CMP 


FIN SETUP T0 GO TO Dx0 
DICNT 
DICNT ,MAXSK :;DID ALL SEEKS? 

;BR IF NO 


; ] 
* beats SKIP TYPEOUT IF NOT SET 


-DRV1 
, RANDOM 


.DUN 
M<IE!DXI>,RXCS ;DISABLE DXi INTERRUPTS 


DXTST,#1 
DINXTI 
DINXT2 


SEQ 0093 


CVKDAC 

CVKDAC.P11 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 017410 
4211 017414 
4212 017420 
4213 
4214 017422 
4215 
4216 017426 
4217 017432 
4218 017440 
4219 017446 
4220 017452 
4221 
4222 017454 
4223 017460 
4224 
4225 017462 
4226 017466 
4227 017470 
4228 017474 
4229 017502 
4230 017504 
4231 017506 
4232 017510 
4233 
4234 017512 
4235 017516 
4236 017522 
4237 
4238 017524 
4239 017530 
4240 
4241 017532 
4242 017536 
4243 017540 
4244 017544 
4245 017552 
4246 017554 
4247 017556 
4248 017560 
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005037 
104401 
000000 
004737 


005037 


100375 


004537 
000007 


005737 


000776 
005037 
004537 
002564 


004537 
000025 


005737 


000000 
000776 


003270 
021210 


017730 


017722 
724 
726 


So 
o 
o 
o 
o 
— 
oo 
_—_ 
N™N 


177170 
020000 
177170 


017722 


017722 000012 


017722 
020040 


020000 
177170 


017722 
017722 000012 
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SEQ 0094 


pteeeereeeerereerererereteererreterreeeeeeeeeeeeeeeeeeeeeeeeenee 

THE FOLLOWING CODE, UP TO THE PROGRAM MESSAGES, IS A UTILITY TO COPY 
;THE DISKETTE CONTAINING ONLY THE BOOT & THE EXERCISER FROM DXO TO Dx}. 
i THE OPERATOR CAN TYPE ‘P’ TO DO ANOTHER COPY OR 


:TYPE '2406" TO ENTER NORMAL TESTING. 


sENTIRE CODE, INCLUDING TEXT & ERROR TABLE, IS 400(10) WORDS. 


s, etree ererereeeeereeeereeeeeeeeereeeeeeeneKretkeakeeeereeeeeeeee 


COPY: 


2$: 


3$: 


CLR COPFLG 

TYPE . COPMSG 

HALT 

JSR PC ,GETSEC 

CLR ERFLG 

MOV #1, TRACK 

MOV #1,SECT 

TSTB RXCS 

BPL 74 

JSR R5,RDWR 
RSEC 

TST RXCS 

BPL 2$ 

INC ERFLG 

CMP ERFLG,#10. 

BNE 1$ 

ERROR 100 

HALT 

BR o*2 

CLR ERFLG 

JSR R5,EBUF F 
DOBUF 

JSR K5,RDWR 
<WSEC!DX1> 

TST RXCS 

BPL 4$ 

INC ERFLG 

CMP ERFLG,#10. 

BNE 3$ 

ERROR 101 

HALT 

BR 72 


; DONE? 
:;BR IF NO & TRY AGAIN 


DONT NEED FLAG ANY MORE 
: INSERT SCRATCH IN DX1 & TYPE P 
WAIT FOR PROCEED 


;CALCULATE MAX SECTORS TO BE COPIED 
INITIALIZE 


(CTL RDY) 


ERROR? 

:BR IF NO 

:10 ERRORS? 

:BR IF NO & TRY AGAIN 
;HARD ERR READ SECTOR DXx0 


FORCE A RESTART FROM 250 
sEMPTY BUFFER INTO DOBUF 
WRITE DX1 
ERROR? 
:BR IF NO 
;10 ERRORS? 
:BR IF NO & TRY AGAIN 
sERROR WRITE SECTOR 
FORCE RESTART AT 250 


CVKDAC 


CVKDAC.P11 

4249 

4250 017562 
4251 017566 
4252 017572 
4253 

4254 017574 
4255 017600 
4256 017602 
4257 017606 
4258 017614 
4259 017616 
4260 017620 
4261 017622 
4262 

4263 017624 
4264 017630 
4265 

4266 017632 
4267 

4268 017636 
4269 

4270 017642 
4271 017650 
4272 

4273 017652 
4274 017660 
4275 017662 
4276 017666 
4277 

4278 017670 
4279 017674 
4280 017702 
4281 

4282 017704 
4283 017710 
4284 017712 
42R5 

4286 017716 
4287 017720 
4288 017722 
4289 017724 
4290 017726 


PDT11-150 AS: whee 


16-FEB-79 1 
005037 017722 
004537 020600 
000027 
005737 177170 
100011 
005237 017722 
023727 017722 
001362 
104103 
000000 
000776 
004537 020040 
003034 
004737 020102 
005237 017720 
023737 017720 
001415 
023727 017726 
001403 
005237 017726 
000672 
005237 017724 
012737 00000! 
000664 
104401 021311 
060000 
000137 017410 
000000 
000000 
000000 
000000 
000000 


000012 


017716 


000032 


017726 
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4$: 


5$: 


6$: 


8$: 


MAXSEC: 
SECCNT: 


ERFLG: 
TRACK: 
SECT: 


CLR ERFLG 
JSR R5,ROWR 
<RSEC!DX1> 

TS] RXCS 

BPL 5$ 

INC ERFLG 

CMP ERFLG,#10. 

BNE 4% 

ERROR 103 

HALT 

BR -72 

JSR R5,EBUF F 
D1BUF 

JSR PC ,DATCHK 

INC SECCNT 

CMP SECCNT ,MAXSEC 

BEQ 8% 

CMP SECT, #3? 

BEQ 6% 

INC SECT 

BR 1$ 

INC TRACK 

MOV #1,SECT 

BR 1$ 

TYPE ~COPDUN 

HALT 

JMP COPY 

0 

0 

0 

0 

0 
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SEQ 0095 


sERROR? 
;BR IF NO 


310 ERRORS? 
:BR IF NO & TRY AGAIN 
;HARD ERR READ SECTOR DX! 


sFORCE 250 RESTART 
EMPTY BUFFER INTO D1BUF 


;COMPARE DOBUF WITH DIBUF 
TOTAL DONE 


:DID TOTAL # SECTORS? 
:BR IF YES 


‘on ie et WE DO LAST SECTOR ON TRACK? 
Y 
ELSE BUMP & DO ANOTHER 


;BUMP TRK 

: INIT SECTOR 

38 DO ANOTHER 

:DONE MSG 

:D0 AGAIN IF ‘P* TYPED 


;TOTAL # SECTORS TO READ FROM Dx0 
s TOTAL # SECTORS WRITTEN TO DX1 


CVKDAC 


CVKDAC. 


Pi) 


017766 


017772 
017776 


020000 


020036 


PDT11-150 oo 


16-FEB-79 1 


012700 
006200 
005500 
062700 
042700 


000300 
006300 
006300 


062700 
062700 


010037 


005037 
000207 


013700 


000000 
000205 


027744 


000 
000 


Aw 
NN 
NN 


000074 
000010 


017716 


017720 


017724 


017726 
177174 
177170 
012634 
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$ ,eeteeereerrerrerererereteerrererereeeereteeAeKereteeeeeeretere 


:ROUT INE TO CALCULATE THE MAX # OF SECTORS TO READ FROM Dx0 


peeeeaeeeeereereerereeeeteeeereeeeeeeeeeteneteeeeeeeeeeeeeereeee 


GETSEC: es 


CLR 
RTS 


#LSTAD,RO 
RO 


RO 
#377,R0 
#377,R0 


#<15.#4>,R0 
0 


RO,MAXSEC 


SECCNT 
PC 


:GET MAX ADDR 
GET WORD CT 
;DONT LOOSE ANY 


ROUND OFF TO NEAREST WHOLE WORD 


:DIVIDE BY 100(8) FOR SECTOR CT. 


sADD SECTOR CT FOR BLOCKS 0 = 14 OF Dx0 
32 MORE BLOCKS (NECESSARY FUDGE FACTOR) 


7 SAVE 


SEQ 0096 


THIS IS THE MAX SECTORS WE WILL READ a Dx0 


3&8 WRITE TO DX1 STARTING AT TRK 1, SECT 
;COUNT OF TOTAL SECTORS WRITTEN TO DX! 


4 ;eeearenereseeereteeeeeeeeeeeeeeeeeteneeeeeeeeeeeeeeeteneeeeeeee 


;ROUTINE TO READ OR WRITE DXO OR DX} 
:R5 POINTS TO THE COMMAND & DISK # 


+ eeeneeeeeeeeeeeeeeeetereeeeeeeteteeereeenerentenetenteereeeenee 


RDWR: 


TRACK ,RO 
RO 


RS, TIMER2 


124 
R5 


;LOAD TRK/SEC 
; ISSUE COMMAND 
WAIT FOR DONE 


NO DONE 


CVKDAC 


CVKDAC. 


Pil 


020100 


020102 


020126 


020130 
026132 
020134 


PD1T11-150 + eters 
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000776 


005300 
061371 
000207 


000100 
000003 
177172 


012634 


000100 
002564 
003034 


177170 
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,eeteeeerererertereretererereeeereteeeteterateeeteeteereeeeeeeeee ee 


ROUT INE TO EMPTY BUFFER INTO DOBUF OR DIBUF 
3R5 POINTS TO IT 


+ eeeeeeerereeeerereeeeterererereterteeerenerereeeereneeereeeeees 


EBUFF: MOV #100,R0 :WD CT 
MOV (R5)+,R1 ;BUFFER ADDR 
MOV #WEBUF ,RXCS ;1SSUE EMPTY BUFFER COMMAND 
1$: MOV RXDB,(R1)+ :PuT IT IN TABLE 
DEC RO 
BNE 1$ 
JSR RS, TIMER2 ;WAIT FOR DONE 
RXCS 
DONE 
ERROR 125 NO DONE 
HALT 
RTS R5 


Zé eeeeaekeeeeeereererereereerereneereeeeereeeeekteeKeeeteneeeeeteeeeeeeee 


: ROUTINE TO COMPARE DOBUF WITH D1BUF 


,eeeeereterrereeeeereteeeterereeeeeeeeekeeeeeKeeeeeeeeketeeetens 


DATCHK: MOV #100,R0 sWwD CT 
MOV #DOBUF ,RI 
MOV #D1BUF ,P2 

1$: CMP (R1)4#,(R2)¢ ; COMPARE ? 
BEQ 2s ;BR IF YES 
ERROR 102 >MISCOMPARE 
HALT 
BR -2 

2s: DEC RO 
BNE 1$ 
RTS PC 


SEQ 0097 


H 8 
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CVKDAC P11 16-FEB-79 11:12 INTERRUPT HANDLERS SEQ 0098 
4370 
ie -SBTTL PROGRAM MESSAGES 
4373 pptereeererererererreerereererereeereeeeeeeeeeeeeeereReReeeereeee 
4374 ; "MESSAGES & ERROR FORMATS 
4375 peeereererrereererereerererererererereeeeeeeeeeeReteReeeeeteeeee 
4376 
4377 -NLIST BEX 
020136 041600 052514 052123 CLOPT: .ASC ate tavitin ot OPTION/ 
020156 052200 051105 020115 CLTI: ASC <CRLF>/TERM #1/ 
020167 042524 046522 (CLT2: ASC <CRLF>/TERM #21 
020200 052200 051105 020115 CLT3: ASC <CRLFD>/TERM #3/ 
020211 200 054523 041516 SCOM: ASC <CRLF>/SYNC COMM/ 
020224 040600 054523 oeaiie ACOM: ASC <CRLF>/ASYNC COMM/ 


/ PORT TESTED/ 
<CRLF>/DX0/ 
<CRLF>/OX1/ 
<CRLF>/CLOCK / 
<CRLF>/EIS<F1S OPTION/ 
/K MEMORY PRESENT/ 


020300 041600 047514 045503 CLOCK: _ASC 
020307 200 044505 026523 EISTXT: .ASC 


12 

12 

12 

12 

7 

PRINT: -ASCIZ <CRLF>/PRINTER/ 
:  TASCIZ 

12 

, 

020327 113 046440 046505 MEM: _ASCIZ 


020350 047040 052117 050040 NOTPRES: eASCIZ = / NOT PRESENT/ 

020365 200 044412 051516 WARNING: sASCI1 <CRLF><LF>/INSERT SCRATCH DISKS, TYPE ‘P* FOR NORMAL TESTING/ 
020450 023600 032062 043460 ASCII] <CRLF>/*240G' FOR NORMAL RESTARTS/ 

020503 031047 030065 ASCI1 <CRLF>/'250G* TO COPY SYS EXERCISER DISK/ 

020545 031047 030066 ASCII <CRLF>/*260G" FOR COMPATABILITY PASS 1: WRITE/ 

020614 023600 033462 043460 ASCIZ <CRLF>/'270G" FOR COMPATABILITY PASS 2: READ/ 

020663 040 042524 052123 DROP ASCIZ / TESTING DROPPED/ 

020704 051040 047125 044516 RUN eASCIZ = / RUNNING/ 

020715 40 045517 OK : ASCIZ / OK/ 

020721 40 051124 0001135 TRK ASCIZ / TRK/ 

020726 042040 052101 020101 PATT eASCIZ = / DATA PATT/ 

020741 0 040522 042116 RANDOM SC1Z / RANDOM SEEKS/ 

020757 044505 026523 FISEIS: .ASCIZ <CRLF>/EIS-FIS TESTS/ 

020776 046600 046505 052040 MEMORY: .ASCIZ <CRLF>/MEM TESTS/ 

021011 40 047504 042516 DUN ASCIZ / DONE/ 

021017 00 042412 042116 ENDPAS: .ASCIZ i PASS #/ 

021034 052011 052117 046101 MsSG1 ASCIZ TOTAL ERRORS: 

021063 00 004411 052011 MSG2 ASCIZ CCRLFD/ TOTAL sor ERRORS: 

021117 00 004412 004411 MSG3 ASCIZ <CRLF><LF>/ TOTAL ERRORS rHis PASS:/ 
021154 004600 004411 047523 MSG4: eASCIZ = <CRLFD/ SOFT ERRORS THIS PASS:/ 

021210 041600 050117 020131 COPMSG: .ASCI11 <CRLF>/COPY DxXO TO DX1/ 

021250 044600 051516 051105 eASCIZ <CRLF>/INSERT SCRATCH DISK IN DX1, TYPE "P* TO PROCEED/ 
021311 200 047504 042516 COPDUN: .ASCIZ <CRLF>/DONE...TYPE ‘P' TO DO AGAIN OR '240G' FOR NORMAL TESTING/ 
021403 200 041412 046517 COMPAT: .ASCII] <CRLF><LF>/COMPATABILITY PASS 1 (WRITE) DONE/ 

021446 042200 020117 050047 -ASCIZ <CRLF>/DO 'P' FOR PASS 2 (READ)/ 

021500 042200 053105 020115 DEVM ASCIZ <CRLF>/DEVM = 

021511 115 046505 051117 EMI 1Z /MEMORY TIMEQUT/ 

021530 042515 020115 040504 EM2 ASCIZ /MEM DATA COMP ERR/ 

021552 054523 041516 041440 EM3 ASCIZ /SYNC COMM DID NOT RECEIVE SYNC CHAR/ 

021616 051120 047111 042524 EM4 ASCIZ /PRINTER STATUS ERR/ 

021641 124 051105 020115 EMS: eASCIZ = /TERM #1 DATA COMP ERR/ 

021667 124 051105 020115 EMé: -ASCIZ = /TERM #2 DATA COMP ERR/ 


CVKDAC 
CVKDAC.P11 


021715 


024110 
024145 


024170 
024207 
024233 


PDTI1- te _— 
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051105 
105 
105 
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EM7: -ASCIZ = /TERM #3 DATA COMP ERR/ 
EM8: «ASCIZ /ASYNC COMM DATA COMP ERR/ 
EMO: -ASCIZ /SYNC COMM DATA COMP ERR/ 


EM10: -ASCIZ = /UNEXP DISK INTERRUPT/ 
EM11: ~ASCIZ = /DX0 WRITE ERR/ 
EM15: -ASCIZ /DXO HARD ERR = READ SECT/ 
EM14: -ASCIZ /DXO SOFT ERR = READ SECT/ 
EM15: -ASCIZ /0X0 HARD ERR = DATA COMP/ 
EM16: -ASCIZ /DXO SOFT ERR = DATA COMP/ 
EM17: eASCIZ = /DX1 WRITE ERR/ 
EM19: -ASCIZ /DX1 HARD ERR SECT/ 
EM20: -ASCIZ /DX1 SOFT ERR - READ SECT/ 
EM21: -ASCIZ /DX1 HARD ERR = DATA COMP/ 
EM22: -ASCIZ /DX1 SOFT ERR = DATA COMP/ 
EM23: eASCIZ /CLK HUNG/ 
EM24: -ASCIZ /PRINTER HUNG/ 

«AS /TERM #1 HUNG/ 


' 
2 
mn 
> 
J 


CZ 

1Z /TERM #2 HUNG/ 
EM27: ASCIZ /TERM #3 HUNG/ 
EM28: ASCIZ /SYNC COMM HUNG/ 
EM29: ASCIZ /ASYNC COMM HUNG/ 
EM30: ASCIZ /DXO HUNG/ 
EM31: ASCIZ /DX1 HUNG/ 
EM32: ASCIZ /SYNC COMM - DATA NOT AVAIL NOT SET/ 
EM33: ASCIZ /SYNC COMM - RECVR ACTIVE NOT SET/ 
EM34: ASCIZ /SYNC COMM - RECVR DONE NOT SET/ 
EM35: ASCIZ /DXO ‘DEL DATA’ BIT 5 NOT SET IN RXES/ 
EM36: ASCIZ /DXO INIT CMD DID NOT READ TRK 1, SEC 1/ 
EM37: ASCIZ /D0X0 RESTORE CMD ERR/ 
EM38: ASCIZ /OX0 ‘INIT DONE’ BIT O NOT SET IN RXES/ 
EM39: ASCIZ /DXO READ STATUS CMD ERR/ 
EM4O: ASCIZ /DXO0 INV ADDR BIT 1 NOT SET IN RXES/ 
EM41: ASCIZ /DX0 ERR BIT NOT SET IN RXCS/ 
EM42: ASCIZ /DXO INIT CMD ERR/ 
EM43: eASCIZ /O0X0 SEEK ERR = WRITE SECT/ 
EM45: ASCIZ /OXO0 SEEK ERR - READ SECT/ 
EM47: ASCIZ /DX1 SEEK ERR - WRITE SECT/ 
EM49: ASCIZ /DX1 SEEK ERR = READ SECT/ 
EMS1: ASCIZ /DX1 RESTORE CMD ERR/ 
EMS2: ASCIZ /DISK ‘DONE’ NOT SET/ 
EM53: ASCIZ /FILL & EMPTY BUFF TEST... DATA MISCOMP/ 
EM54: ASCIZ /DATA MISCOMP/ 
EMSS: ASCIZ /REPLACE DX0...10 BAD SECTORS/ 
EMS6: ASCIZ /REPLACE DX1...10 BAD SECTORS/ 
EM57: ASCIZ /DXO HARD CRC ERR/ 
EMS8: -ASCIZ /D0X0 DATA CRC ERR/ 
EMS9: -ASCIZ /DXO PREV CRC ERR WITH DATA OK/ 
EM60: ASCIZ /DX1 HARD CRC ERR/ 
EM61: ASCIZ /DX1 DATA CRC ERR/ 
EM62: -ASCIZ /DX1 PREV CRC ERR WITH DATA OK/ 
EM63: eASCIZ /EIS-FIS CONDITION CODE ERROR/ 
EMO4: eASCIZ = /EIS@FIS DATA ERROR/ 
DHI: -ASCIZ /ERROR # ERR PC/ 
DH2: -ASCIZ /ERROR @ ERR PC ADDR/ 
DH3: eASCIZ /ERROR # ERR PC ADDR EXPECT RECvD, 


SEQ 0099 





CVKDAC 
CVKDAC.P11 


024275 
6 
024517 


024606 


025124 


025126 
025130 
025132 
025134 


POTII- 7? rf + ore 
16-FEB-79 


105 
051105 
105 
051105 
104 


027076 


027076 


000000 
000000 
000000 


000000 


060000 
000000 
000000 
000400 


Nm 
Or OC} ant at et as ws os os es 


001116 


NOnNOO--— 


MACY11 306(1063) 
PROGRAM MESSAGES 


DH4: 


DF: 


-LIST 


eASCIZ 


BEX 


J 8 
16-FEB-79 11:13 PAGE 

7ERROR # ERR PC 
ERROR #@ ERR PC 
JERROR @ DXTST# 
/ERROR # DXTST# 
/OXTST @ ERR PC 
ERRNUM ,SERRPC 0 


ERRNUM,SERRPC ,ADDR,0 


100 


PR STATUS/ 
EXPECT 
RXES 
RXES 
RXSA 


RXCS RXES 


ERRNUM, SERRPC ADDR PAT MEMHLD ,0 


ERRNUM, SERRPC,SP 

ERRNUM,SERRPC,TICHR,T IHL 
ERRNUM,SERRPC,T2CHR,T2HL 
ERRNUM, SERRPC,T3CHR,T3HL 


D.0 
D,0 
D.0 


ERRNUM, SERRPC , COMCHR , COMHLD ,0 


ERRNUM ,DXTST,SERRPC,SRXC 


S,SRXES,SRXSA,0 


RXSA/ 
TRACK 
EXPECT 


ERRNUM,DXTST,SERRPC,SRXCS,SRXES,DOTRK ,DOSEC ,DOERR,0 


DXTST,SERRPC,RXCS,RXES,RXSA,DOEXP,DOREC ,DOCERR,O 


ERRNUM ,DXTST,SERRPC,SRXCS,SRXES,DITRK ,DISEC ,DIERR,O 
DXTST,SERRPC ,RXCS,RXES,RXSA,DIEXP,DIREC,DICERR,O 


ERRNUM ,DXTST,SERRPC ,RXCS 


oRXES,RXSA,0 


ERRNUM,SERRPC,EXPO,EBHLD.0 


ERRNUM, SERRPC ,EXP1,EBHLD 
sOCTAL F 


oo 
-o 


> DECIMAL 


sooo fFfoOooco CoCo 


oO 
o 


DECIMAL 


0 
ORMAT FOR ALL 


sQCTAL ,OCTAL 
sOCTAL,OCTAL 
DECIMAL, 


OCTAL 
DECIMAL 


sOCTAL ,OCTAL 
sOCTAL ,OCTAL 
:OCTAL ,OCTAL 


OCTAL 


SECTOR 


RECVD # RETRIES 


SEQ 0100 


# RETRIE 


oe 


CVKDAC 


CVKDAC.P11 


025136 


025300 
025304 


025316 


PD111-150 As) ame 
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105737 


013746 
105366 


108537 


001157 


000002 
000001 


000100 


025206 
026270 


000640 


000092 
000011 
000200 


025414 


025350 
001156 


001154 
000001 


025350 
025414 


001210 
001211 


001211 


MACY11 306(1063) 
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« 
16-FEB-79 


TYPE ROUTINE 


8 
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peeeeerererrrerrererreretrreteeteererereteeneteeeteeeeeeeeeeenee 
: #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 att F 
ant RCUTINE WiLL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE 


OTE1: 
 ENOTE?: 
; *NOTES: 


eCALL 


:*1) USING A TRAP a 


TYPE 
ie TYPE 


7” MESADR 


J 
61$: - WORD 


O28: 
2$: MOVB 
60$: 
3$: ADD 

4$: CMPB 


5$: JSR 
6$: CMPB 


7$: DECB 


FEED. 
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 


SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


»MESAD 


STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
WAPTENV,SENV 


62$ 
#APTSPOOL , SENVM 
62% 


RO,61$ 
eimai 


#APTCSUP, SENVM 
0$ 


6 
(RO)+,=(SP) 
4% 

(SP)+ 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 

8$ 

#CRLF, (SP) 
5$ 


(SP)+ 


SCHARCNT 
2$ 


PC ,STYPEC 
SFILLC,(SP)+ 
2$ 


SNULL ,~(SP) 
1(SP> 
$ 


6 
PC, STYPEC 
SCHARCNT 


;:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


i315 ge Be TERMINAL? 
7;HALT HERE IF NO TERMINAL 
3; LEAVE 
7: SAVE RO 
+8 ADDRESS OF ASCIZ STRING 
;RUNNING IN APT MODE 
:NO, GO CHECK FOR APT CONSOLE 
SPOOL MESSAGE TO APT 
3:NO,GO CHECK FOR CONSOLE 
3:SETUP MESSAGE ADDRESS FOR APT 
+ SPOOL MESSAGE TO APT 
sMESSAGE ADDRESS 
TAPT “py — 
3: YES,SKIP TYPE OUT 
3; PUSH CHARACTER TO BE TYPED ONTO STACK 
7:;BR IF IT ISN'T THE TERMINATOR 
331 TERMINATOR POP IT OFF THE STACK 
7 RESTORE RO 
> ADJUST RETURN PC 
3; RETURN 
>;BRANCH IF <HT> 


;:BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
:; TYPE A CR AND LF 


;;CLEAR CHARACTER COUNT 

3;GET NEXT CHARACTER 

3:G0 TYPE THIS CHARACTER 

3:18 17 TIME FOR Ae CHARS.? 

::1F NO GO GET NEXT CHAR 

3:;GET # OF FILLER CHARS. “NEEDED 

:;AND THE NULL CHAR, 

: DOES A NULL NEED TO BE TYPED? 
;BR IF NO--GO hl THE NULL OFF OF STACK 

2:60 TYPE A NUL 

:;D0 NOT COUNT “is A COUNT 


SEQ 9101 


tL 8 
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CVKDAC.P11 16-FEB-79 11:12 TYPE ROUTINE SEQ 0102 
‘tee 025322 000770 BR 7% * 3sL00P 
“t ;HORIZONTAL TAB PROCESSOR 
4438 025324 112716 000040 8$: MOVB #" ,(SP) s sREPLACE TAB WITH SPACE 
4459 025330 004737 025350 9$: JSR PC ,STYPEC s; TYPE A SPACE 
4440 025334 132757 000007 025414 B1TB #7, $CHARCNT ;;BRANCH IF NOT AT 
4441 025342 001372 BNE 9$ 3; TAB STOP 
4442 025344 005726 TST (SP)+ :;POP SPACE OFF STACK 
4443 025346 000724 BR 2% >;GET NEXT CHARACTER 
4444 025350 105777 153574 STYPEC: TS1B astPs ;;WAIT UNTIL PRINTER IS READY 
4445 025354 100375 BPL STYPEC 
4446 025356 116677 000002 153566 MOVB 2(SP) ,asTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
4447 025364 122766 000015 000002 CMPB WCR,2(SP) :;1S CHARACTER A CARRIAGE RETURN? 
4448 025372 001003 BNE 1$ ; BRANCH IF NO 
4449 025374 105037 025414 CLRB SCHARCNT ;3YES@-CLEAR CHARACTER COUNT 
4450 025400 000406 BR STYPEX T 
4451 025402 122766 000012 000002 1$: CMPB #LF,2(SP) ::1S CHARACTER A LINE FEED? 
4452 025410 001402 BEQ $TYPEX > BRANCH IF YES 
4453 025412 105227 INCB (PC)+ >; COUNT THE CHARACTER 
4454 025414 000000 SCHARCNT: WORD 0 >; CHARACTER COUNT STORAGE 
4455 025416 006207 STYPEX: RTS PC 


CVKDAC 
CVKDAC .P11 


025420 


025462 
025464 


025516 


025520 
025524 


025530 


025564 


025570 
025574 
025576 
025602 
025606 


025610 


025624 


PD111-150 ico 
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104401 


100375 


117746 
042716 


021627 


000137 


021627 
001005 
104401 
062706 
000737 


021627 


016677 


000176 
153510 
153504 
177600 
000007 
001134 
026232 
026237 
000176 


026250 
153426 
153422 
177600 
000003 
026220 
000006 
001135 
000100 
012152 
000025 


026225 
000006 


000015 
000004 
000002 


001140 


000001 


000001 
153360 


153306 


a 8 
MACY11 306(1063) 16-FEB-79 11:13 PAGE 103 


TTY INPUT ROUTINE 
-S8TTL TTY INPUT ROUTINE 


,eeteeeeerererereeerrrerrerreeererreeereeeeteneeeereeeeeeeeeeeA es 


* ENABL LS8 


p_eeeeeeerererererereeererereeererereAeeeeeeKeAeeeeeeeeeereeeere 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 

SCKSWR: CMP #SWREG, SWR 7231S THE ene SELECTED? 


BNE 15$ ; >BRANCH IF 

TSTB astKs 7:CHAR THERE? 

BPL 15$ ::1F NO, DON'T WAIT AROUND 
MOVB a$TKB,-(SP) 3;SAVE THE CHAR 


BIC #*C177, (SP) 
CMP #7,(SP)+ 


7 :STRIP-OFF THE ASCII 
3318 IT A CONT, 1 G? 


BNE 15$ ::NO, RETURN TO USER 
CMPB SAUTOB,#1 7;ARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ ; BRANCH IF YES 
TYPE -$CNTLG :;ECHO THE CONTROL=-G (“G) 
SGTSWR: TYPE . SMSWR :; TYPE CURRENT CONTENTS 
MOV SWREG,-(SP) :;SAVE SWREG FOR TYPEOUT 
TYPOC ::GO0 TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE . SMNEW ;:PROMPT FOR NEW SWR 
19$: CLR -(SP) ;;CLEAR COUNTER 
CLR -(SP) 7; THE NEW SWR 
7$: TSTB asTKs 7;CHAR THERE? 
BPL 7$ 33 1F NOT TRY AGAIN 
MOVB a$TKB,-(SP) ::PICK UP CHAR 
BIC #°C177, (SP) 3;MAKE IT 7-B1T ASCII 
CMP (SP) ,#3 31S 1T A CONTROL-C? 
BNE 9$ ;;BRANCH IF NOT 
TYPE -SCNTLC ::YES, ECHO CONTROL-C (“C) 
ADD #6,SP ;;CLEAN UP STACK 
CMPB SINTAG,#1 ;;REENABLE TTY KEYBOARD INTERRUPTS? 
BNE 8$ :;BRANCH IF NO 
MOV #100 ,aSTKS ;;ALLOW TTY KEYBOARD INTERRUPTS 
8$: JMP GTS$DEV ;:CONTROL-C RESTART 
9$: CMP (SP) ,#25 3231S 1T A CONTROL-U? 
BNE 10$ ;;BRANCH IF NOT 
TYPE -SCNTLU ;:YES, ECHO CONTROL -U (*U) 
20$: ADD #6,SP :: IGNORE PREVIOUS INPUT 
BR 19$ 3;LET'S TRY IT AGAIN 
10$: CMP (SP) ,#15 $313 17 A oy 
BNE 16% ;;BRANCH IF 
TST 4(SP) s3YeS, IS IT NTE FIRST CHAR? 
BEG 11% ;;BRANCH IF YES 
MOV 2(SP) ,aSwWR ::SAVE NEW SWR 


SEQ 0103 


CVKDAC 


CVKDAC.P11 


025632 
02 


025740 


025742 


026060 


PDT11-150 i 
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000720 


000002 


000006 
001165 
001135 
000100 


025350 
000069 


000067 


000060 
000002 


000002 
177776 


001164 


000004 
153166 


153162 
177600 
000004 
153134 
153130 
177600 
000021 
000004 
000004 


000040 


000001 
153264 


000002 


000004 
000004 
000023 


000140 
000175 
000004 


a 
T 
1 
1 


s— => 


15$: RTI 
16$: 


17%: INC 


18$: TYPE 
BR 
-DSABL LSB 


v11 Tact ine 
INPUT ROUTI 


N 
16-F EB-79 


#6,SP 

, SCRLF 
SINTAG,#1 
#100,aSTKS 


PC ,STYPEC 
+ a 


18$ 

(SP) ,#67 
18$ 

#60, (SP)+ 
2(SP) 


2(SP) 
-2(SP), (SP) 
7$ 

, SQUES 

20% 


8 
11 


7135 PAGE 104 


3;CLEAR UP STACK 
7;ECHO <CR> AND <LF> 
TTY KBD INTERRUPTS? 


$3 F NOT 
; >RE~ENABLE TTY KBD INTERRUPTS 


+ ECHO CHAR 
7;CHAR < 0? 
7 ;BRANCH IF 
+ sCHAR > 7? 


; IF YES 
+: STRIP-OF F ASCII] 
3:18 THIS THE FIRST CHAR 
a IF YES 

"ean & PRESENT 
- AR OVER TO MAKE 
-\ ROOM FOR NEW ONE. 
+ KEEP COUNT OF CHAR 
3:SET IN NEW CHAR 
3:;GET THE NEXT ONE 
si TYPE 2?<CR><LF> 
3: SIMULATE CONTROL-U 


YES 


sy eeeeeeeeeeeeeeeeeeeereeeeee eee eee eee eKeKeKKAeKeKeKKeeAKK Kee Ae 


2 *THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CALL: 


. RDCHR 

# RETURN HERE 

_ 

SRDCHR: MOV (SP) ,<(SP) 
MOV 4(SP),2(SP) 

1$: TS1B = @STKS 
BPL 1$ 
MOVB  a$TKB,4(SP) 
BIC #°C<177>,4(SP) 
CMP 4(SP) #28 
BNE 3$ 

2$: STB © aSTKS 
BPL 2$ 
MOVB  a$TKB,-(SP) 
BIC #°C177, (SP) 
CMP (SP)+,#21 
BNE 2$ 
BR 1$ 

3$: CMP 4(SP) #140 
BLT 4$ 
CMP 4(SP),#175 
BGT 4$ 
BIC #40,4(SP) 

4$: RT] 


3; INPUT A SINGLE CHARACTER FROM THE TTY 
;;CHARACTER IS ON THE STACK 
7;WITH PARITY BIT STRIPPED OFF 


;:PUSH DOWN THE PC 

;;SAVE THE PS 

::WAIT FOR 

:;A_CHARACTER 

7;READ THE TTY 

7;GET RID OF JUNK IF ANY 

3:18 1T A CONTROLS? 

; BRANCH IF NO 

7;WAIT FOR A CHARACTER 

;;LOOP UNTIL ITS THERE 

3;GET CHARACTER 

7;MAKE IT 7-BIT ASCII 

3:18 117 A CONTROL-Q? 

ilk NOT DISCARD IT 
:YES, RESUME 

i318 iT UPPER CASE? 

;;BRANCH IF YES 

31S 11 A SPECIAL CHAR? 

;;BRANCH IF YES 

7;MAKE 11 UPPER CASE 

3:60 BACK TO USER 


*s@eeweteetetereteeteeetereeterete teeta eteeeeeeeteeeeeeeeeeene 


t@THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


SEQ 0104 


CVKDAC 
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026062 


026250 
026256 
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026262 


026210 
026229 


000003 
026220 


012152 
000177 


001164 
026206 
026206 
000015 
177777 
001166 


000004 
026210 


005015 


000002 
000004 


000 
000012 
051127 
020127 


MACY11 306(1063) 


B 
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TTY INPUT ROUTINE 


3 *CALL: 


SROLIN: 
1$: 


2: 


10$: 
4$: 
3$: 


9$: 


STTYIN: . 
SCNTILC: . 
SCNILU: 
SCNTLG: 


SMSWR: 
SMNEW: 
EVEN 


ROLIN 
RETURN HERE 


“ASCIZ 
“ASCIZ 


-ASCIZ 


R3,-(SP) 
#STTYIN,RS 
-* ‘linda 


(SP)+,(R3) 
#3,(R3) 
10% 


#177,(R3) 
3$ 

,SQUES 

1$ 
(R3),9% 
9% 

#15, (R3)+ 
2% 


WSTTYIN, (SP) 


~ooo 


*C/<15><12> 
/*U/<15><12> 
1*G/<15><12> 


<15><12>/SWR = 


/ NEW = / 


9 
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>; INPUT A STRING FROM THE TTY 


; ADDRESS OF FIRST CHARACTER WILL of o THE STACK 


;; TERMINATOR WILL BE A BYTE OF ALL 


77 SAVE R3 

3;GET ADDRESS 

3 ;BUFFER FULL? 

$3 IF YES 

3:G0 READ ONE CHARACTER FROM THE TTY 
3;GET CHARACTER 

3318 11 A CONTROL-C? 
>;BRANCH IF NO 

3: TYPE A CONTROL-C (“C) 

7 RESTORE R3 

7:GOTO CONTROL=-C RESTART 
3:18 IT A RUBOUT 

33SKIP IF NOT 

s:¥¥Pe A *?” 

3;CLEAR THE BUFFER AND LOOP 
3;ECHO THE CHARACTER 


:: CHECK FOR RETURN 

;;LOOP IF NOT RETURN 

;:CLEAR RETURN (THE 15) 

:;TYPE A LINE FEED 

; RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
ae FIRST ASCII CHARACTER ON IT 


7 RETURN 
bh Hepes FOR ASCII CHAR. TO TYPE 
;: TERMINATOR 
perk H 8 BYTES FOR TTY INPUT 
+3 CONT ROL ‘'C"’ 

; CONTROL. 
CONTROL 


~— 


CVKDAC 


CVKDAC. 


Pil 


026262 


026526 


PD111-150 A aig 
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000000 
105737 


000100 


000001 
000001 


000001 


026524 
000001 
000100 
000004 
000002 
001170 


001204 


001204 


001206 
000004 


000004 
000002 
177776 
025136 
026526 
001210 
001170 


000004 


026524 


026526 
026524 


026526 


001210 
001211 


000004 


001170 


026436 
000004 


001172 
000004 
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APT COMMUNICATIONS ROUTINE 
-SBTTL APT COMMUNICATIONS ROUTINE 


,,eeereeeerrereereretrereteeeerrerereerereetenekereeeeeeeeereRees 


SATYI: 
SATY3: 


SATY4: 
SATYC: 


1$: TST 


2$: TSTB 


12$: 


SMFLG: 
$LFLG: 
SFFLG: 


a: N 
APTSIZE=200 


APTENV=001 
APTSPOOL=100 


#1, SFFLG 
eee 


SATYC 
#1,SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 


5$ 
#APTENV,SENV 
3$ 


#APTSPOOL , SENVM 
3$ 


@4(SP) ,RO 
#2,4(SP) 

SMSGTYPE 

1$ 


RO, $MSGAD 
(RO)+ 

23 
$SMSGAD,RO 
RO 


RO, $MSGLGT 
* ait 


Q4(SP) ,4$ 
#2,4(SP) 
177776,-(SP) 
 paptihtshe 


SFFLG 
12$ 
SENV 


12$ 

SMSGTYPE 

11$ 

04(SP) ,SFATAL 
#2,4(SP) 
SMSGTYPE 
SFFLG 

$LFLG 

SMFLG 


(SP)+,R1 
(SP)+,RO0 


ooov 
oO 


9 
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:;TO REPORT FATAL ERROR 
7:10 TYPE A MESSAGE 


;;10 ONLY REPORT FATAL ERROR 


;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
Se MOT : TYPE A MESSAGE? 


IF NO BR 
; sOPERATING UNDER APT? 
NOT: BR 
: 3 SHOULD SPOOL MESSAGES? 
NOT: BR 


1 
::GET MESSAGE ADDR. 
;;BUMP RETURN ADDR. 
;:SEE 1F DONE W/ LAST XMISSION? 
371F NOT: WAIT 
:;PUT ADDR IN MAILBOX 
::FIND END OF MESSAGE 


;;SUB START OF MESSAGE 

;:GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
::TELL APT TO TAKE MSG. 


;;PUT MSG ADDR IN JSR LINKAGE 
UMP RETURN ADDRESS 

:;PUSH 137776 ON STACK 

:;CALL TYPE MACRO 


+s SHOULD REPORT FATAL ERROR? 
OT: BR 


N 
; ; RUNNING UNDER APT? 
NOT: 


BR 
i FINISHED LAST MESSAGE? 
371F NOT: WAIT 

GET ERROR ] 

;BUMP RETURN ADDR. 
ss TELL APT TO TAKE ERROR 
3;CLEAR FATAL FLAG 
3;CLEAR LOG FLAG 
3;CLEAR MESSAGE FLAG 
;;POP STACK INTO R1 
3;POP STACK INTO RO 
3; RETURN 
3;MESSG. FLAG 
3;L0G FLAG 
s: FATAL FLAG 


SEQ 0106 


CVKDAC 


CVKDAC. 


Pil 


026530 


026666 
026666 


PDT11-150 og eee 


16-FEB-79 1 
000040 


104407 


164401 
122737 


104407 
000002 


001103 


001102 
002900 


001160 


020000 


027044 
001165 


000001 


001114 
026300 


152260 


001210 
026650 


09 
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APT COMMUNICATIONS ROUTINE 


APTCSUP=040 
-SBTTL ERROR HANDLER ROUTINE 


peeererecerererrreerrerereeerteereeeeteereteereteeeetereeneeenee 
SeTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

> *AND GO TO MYTYPE ON ERROR 

+ * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SwWi5= HALT ON ERROR 


SW 3-1 INHIBIT ERROR TYPEOUTS 
3*SW10=1 BELL ON ERROR 
:*CALL 
* ERROR N > ;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR 7: TEST FOR aon? IN SOF T-SWR 
7$: INCB SERFLG +3 SET THE ERROR FLAG 
BEQ 7$ ;DON'T LET THE FLAG GO TO ZERO 


MOV STSTNM,QDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10,aSwR ;;BELL ON ERROR? 


BEQ 1$ :3NO - SKIP 
TYPE , SBELL ;sRING BELL 
1$: INC SERTTL ; COUNT THE NUMBER OF ERRORS 


MOV (SP) , SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 

MOVB @SERRPC ,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T13,aSwR ::SKIP TYPEOUT IF SET 

BNE 208 7;SKIP_ TYPEOUTS 

JSR PC ,MYTYPE ::GO TO USER ERROR ROUTINE 

TYPE » SCRLF 


208: 
CMFB #APTENV,SENV >;RUNNING IN APT MODE 
BNE 23 3;NO,SKIP APT ERROR REPORT 
MOVB SITEMB,21$ 7:;SET ITEM NUMBER AS ERROR NUMBER 
JSR PC,SATY4 3;REPORT FATAL ERROR TO APT 
21$: BYTE 0 
-BYTE O 
22s: BR 22% 3;APT ERROR LOOP 
2: TST aswR 7;HALT ON ERROR 
BPL 3$ 7;SKIP IF CONTINUE 
HALT 3;;HALT ON ERROR! 
- CKSWR 3:;TEST FOR CHANGE IN SOFT=-SWR 
RT] 7 ;RETURN 


SEQ 0107 


CvKDAC 


CvKDAC PT) 


026670 
026670 
026674 
026676 
026700 
026704 
026706 


026712 


027024 
027026 


027040 
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001004 
013746 
104402 


000402 
013146 


000764 
012601 


027044 


001165 


001114 


001116 


001250 
026742 


001165 
026760 


001165 


027040 


MACY11 306(1063) 
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E 
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-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


4 ,tteeererertererererererererereterereetekeekeeeeeeeeeeeeeeeereees 


*THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 


;*ERROR 1S TO BE REPORTED. IT THEN OBTAINS, 


FROM THE “ERROR TABLE’’ (SERRTB), 


:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


2$: 
3$: 


4$: 
5$: 


6$: 


7$: 


- SCRLF 
* that 


R 
a#$1TEMB,RO 
1$ 


SERRPC ,-(SP) 


R 
#SERRTB,RO 
(RO)+,2% 
3$ 


0 

, SCRLF 
(RO)+,4$% 
5$ 


0 

, $CRLF 
R1,-(SP) 
(RO)+,R1 
9$ 


(RO)+,RO 
(RO) + 


7$ 
a(R1)+,-(SP) 
8$ 
a(R1)+,-(SP) 
(R1) 

9$ 

118 

6$ 

SP)+,R1 
SP)+,RO 


( 
( 
, SCRLF 
PC 
,# 


33""CARRIAGE RETURN’’ & ‘’LINE FEED" 
3;SAVE RO 
;;PICKUP THE ITEM INDEX 


72 1F ITEM NUMBER IS ZERO, JUST 

3; TYPE THE PC OF THE ERROR 

;;SAVE SERRPC FOR TYPEOUT 

7;ERROR ADDRESS 

3;G0 TYPE--OCTAL ASCII(ALL DIGITS) 


7;GET OUT 
;;ADJUST THE INDEX SO THAT IT WILL 
Hs WORK FOR THE ERROR TABLE 


;;FORM TABLE POINTER 
;;PICKUP ‘‘ERROR MESSAGE*’ POINTER 


53 MES 
7:"ERROR MESSAGE’ POINTER GOES HERE 
33""CARRIAGE RETURN’ & "LINE FEED" 
:;PICKUP ‘‘DATA HEADER" POINTER 
>;SKIP TYPEOUT IF 0 
+e ]YPE THE *‘DATA HEADER’ 
33''DATA HEADER'’ POINTER GOES HERE 
5 CARRIAGE RETURN’ & “LINE FEED" 
7 :SAVE RI 
:;PICKUP "DATA TABLE*’ POINTER 
;:BR IF NO DATA TO BE TYPED 
>:PICKUP "DATA FORMAT’’ POINTER 
3:"OCTAL'’ OR *‘DECIMAL"’ 
:3BR IF DECIMAL 

SAVE @(R1)+ FOR TYPEOUT 
::GO TYPE--OCTAL ASCII(ALL DIGITS) 


;;SAVE a(R1)+ FOR TYPEOUT 
3;G0 TYPE--DECIMAL ASCII WITH 3IGN 
iil THERE ANOTHER NUMBER? 


:BR_ IF NO 
::TYPE TWO(2) SPACES 
;;LCOP 


+ sRESTORE Ri 


TORE RO 

i CARRIAGE RETURN’ & “'LINE FEED" 
URN 

::1WO(2) SPACES 


SEQ 0108 


a 
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CVKDAC.P11 16-FEB-79 11:12 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0109 
4767 
£769 
4770 027044 113737 001114 027076 MyYTYPE: MOVB SITEMB,ERRNUM ;FOR ERROR TYPEOUT 
4771 027052 013737 014244 001174 MOV SRXSA,STESTN ;FOR APT 
4772 ;APT PRINTS STESTN & SFATAL IN THAT ORDER. 
4773 sSTESTN WILL BE FLOPPY RXSA 
4774 :SFATAL IS ERR & 
4775 027060 004737 026670 JSR PC .SERRTYP TYPE ERR MSG 
4776 027064 005237 027100 INC TERR 
4777 027070 005237 027104 INC PERR 
ny hh 027074 000207 RTS PC 
4 
cay 027076 000000 ERRNUM: 0 FOR ERR TYPEOUT 
4 
4782 027100 000000 TERR: 0 ; TOTAL ERROR COUNT 
4783 027102 000000 TSERR: 0 ; TOTAL SOFT ERR COUNT 
4784 027104 000000 PERR: 0 PASS ERR COUNT 
4785 027106 000000 PSERR: 0 PASS SOFT ERR COUNT... ALL FOR EOP TYPEOUT 


CvKDAC 
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027270 
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012602 


020200 
000020 
000055 


027324 
000040 


027314 


000001 
000060 
000040 


000010 


177777 


000001 


177777 


177776 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


APS CSC CTP PTT ISTP TTT iii i iii ii iii iii ii iiiiiiiiiiiiiiiiiit 
THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:>*SIGNED DECIMAL (ASCI1) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 

: *NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


:*BEFORE THE FIRST DIGIT OF THE 


:*REPLACED WITH SPACES. 


7 *CALL: 


STYPDS: 


1$: 


8$: 


9$: 


MOV 


TYPDS 


NUM ,-(SP) 


RO,-(SP) 
R1,-(SP) 


#20200,-(SP) 
20(SP) .R5 


R5 
#'-,1(0SP) 
R 


0 
#S$DBLK,R5 
- (R35)+ 


R 
fe tamed 


° 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 


9 
~1(SP),-2(R3) 
(R3) 


NUMBER. LEADING ZEROS WILL ALWAYS BE 


;;PUT THE BINARY NUMBER ON THE STACK 
;:G0 TO THE ROUTINE 


7;PUSH RO ON STACK 

7;PUSH R1 ON STACK 

3:PUSH R2 ON STACK 

3;PUSH R3 ON STACK 

3;PUSH RS ON STACK 

3:SET BLANK SWITCH AND SIGN 
3;GET THE INPUT NUMBER 

3:BR IF INPUT IS POS. 

>;MAKE THE BINARY NUMBER POS. 
7;MAKE THE ASCI] NUMBER NEG. 
3;ZERO THE CONSTANTS INDEX 
::SETUP THE OUTPUT POINTER 
3;SET THE FIRST CHARACTER TO A BLANK 
3;CLEAR THE BCD NUMBER 

3:GET THE CONSTANT 

3:FORM THIS BCD DIGIT 

3 F DONE 


] N 
;: INCREASE THE BCD DIGIT By 1 


;:ADD BACK THE CONSTANT 
;;CHECK IF BCD DIGIT=0 
;;FALL THROUGH IF 0 
::STILL DOING LEADING 0'S? 
7 BR IF YES 


NO, 
7: YES--SET ‘THE SIGN 
;:MAKE TH® BCD DIGIT ASCII 
:;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
7:JUST INCREMENTING 
:;CHECK THE TABLE INDEX 
::GO DO THE NEXT DIGIT 
::G0 TO EXIT 
;:;GET THE LSD 
::G0 CHANGE TO ASCIi 
4 THE FIRST NON-ZERO? 
>: YES--SET THE +t FOR TYPING 
3;SET THE TERMINATO 
;;POP STACK INTO RS. 
;;POP STACK INTO R3 
:;POP STACK INTO R2 


SEQ 0110 


CVKDAC 
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027272 


027324 


027334 


027442 
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012601 
0 


000004 


000404 


027524 
000002 000004 


000090 
000001 
027561 
000002 


000001 


000006 
000005 


027561 
000006 


000012 


027557 


027557 
027561 
027556 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MOV (SP)+,R1 
MOV (SP)+,R0 
TYPE , SOBLK 
MOV 2(SP) ,4(SP) 
MOV (SP)+, (SP) 
RT 

$DTBL: 10000 
1000. 
100. 
10. 

$DBLK: .BLKW 


;;POP STACK INTO Ri 
;;POP STACK INTO RO 
:;NOW TYPE THE NUMBER 
>; ADJUST THE STACK 


3 ;RETURN TO USER 


- SBTTL BINARY 10 OCTAL (ASCII) AND TYPE 


peeteeeeeerererertenterenrereteerereeeKeeeeeeee ee eeeReee eee 

SSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 

i *STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3*CALL: 

ie MOV NUM ,-(SP) 
:* TYPOS 

had -BYTE N 

7” -BYTE 

7* 

Piel 

3° 


::NUMBER TO BE TYPED 
3;;CALL FOR TYPEOUT 
3:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
>;M=1 OR O 
3: 1=TYPE LEADING ZEROS 
3;0=SUPPRESS LEADING ZEROS 


;*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


;*$TYPOS OR $TYPOC 


;: NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


® 
i *$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


seCALi: 

32 MOV NUM ,=-(SP) 

s# TYPON 

s*CALL: 

3* MOV NUM,=-(SP) 

jf TYPOC 

$TYPOS: MOV a(SP),-(SP) 
MOVB 1(SP),SOFILL 
MOVB (SP)+,SOMODE+1 
ADD #2, (SP) 
BR STYPON 

$TYPOC: MOVB #1,S0FILL 
MOVB #6,S0MODE +1 

$TYPON: MOVB #5, S0CNT 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
MOVB SOMODE*+1, RG 
NEG 
ADD H.R 
MOVB Re SOMODE 
MOVB SOFILL,R4 
MOV 12(SP),R5 
CLR R3 

1$: ROL R5 
BR 3$ 


;;NUMBER TO BE TYPED 
;:CALL FOR TYPEOUT 


::PICKUP THE MODE 

;;LOAD ZERO FILL SWITCH 

; NUMBER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 


3:SET THE ZERO FILL SWITCH 
$1X(6) DIGITS 
ITERATION COUNT 


ee 5 
::GET THE NUMBER OF DIGITS TO TYPE 


;;SUBTRACT IT FOR MAX. ALLOWED 
;;SAVE IT FOR USE 

3:GET THE ZERO FILL SWITCH 
:;PICKUP THE INPUT NUMBER 
:;CLEAR THE OUTPUT WORD 
;;ROTATE MSB INTO ‘'C"’ 

::G0 DO MSB 


SEQ 0111 


: 


CVKDAC 


CVKDAC.P11 


027444 


027560 


PDT11-150 JA, aa 


\6-FEB-79 1 
006105 


0 
000000 


027560 
177779 


000060 


027556 


000002 000004 


MACY11 306(1063) 
BINARY TO OCTAL (ASCII) AND TYPE 


23: 


3$: 


6$: 


8$: 
$OCNT: 


SOFILL: . 
SOMODE : 


« WORD 


I 
16-FEB-79 


R5 

R5 

R5 
R5,R5 
R3 
SOMODE 
7$ 


#177770,R3 
4 


(SP)+, (SP) 


ooooeo 
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::FORM THIS DIGIT 


3;GET LSB OF THIS _—* 

+i TYPE THIS DIGIT 

B3 IF NO 

3;GET RID OF JUNK 

si TEST FOR O 

3; SUPPRESS THIS 0? 

;;BR IF YES 

>:DON' T SUPPRESS gry 0'S 
3:MAKE THIS DIGIT ASCII 
3:MAKE ASCII IF NOT ALREADY 
3; SAVE FOR TYPING 

3;G0 TYPE THIS DIGIT 

3;COUNT BY i 

;:BR IF MORE TO DO 

3:BR IF DONE 

3; INSURE LAST DIGIT ISN'T A BLANK 
3:G0 DO THE LAST DIGIT 

7 RESTORE R5 

> RESTORE R4 

> RESTORE R3 

37;SET THE STACK FOR RETURNING 


3 RETURN 

>;STORAGE FOR ASCII DIGIT 

3: TERMINATOR FOR TYPE ROUTINE 
;:O0CTAL DIGIT COUNTER 

7:;ZERO FILL SWITCH 

;;NUMBER OF DIGITS TO TYPE 


SEQ O112 


J 9 
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CVKDAC.P11 16-FEB-79 11:12 TRAP DECODER SEQ 0113 
ret .SBTTL TRAP DECODER 
4932 peeteeeeerereererererereerrrerereeerrereteeeeeterereneteeeReeerees 
4933 tSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
4934 ;*AND USE 11 TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
4935 :*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WIiL 
ret :*GO TO THAT ROUTINE. 
4938 027562 010046 STRAP: MOV RO,-(SP) 7; SAVE RO 
4939 027564 016600 000002 MOV 2(SP),RO ::GET TRAP ADDRESS 
4940 027570 005740 TST -(RO) 3;BACKUP BY 2 
4941 027572 111000 MOVB (RO) ,RO + 2GET RIGHT BYTE CF TRAP 
4942 027574 006300 ASL RO POSITION FOR INDEXING 
4943 027576 016000 027616 MOV STRPAD(RO),RO  :: INDEX TO TABLE 
ot oe 027602 000200 RTS RO 3:60 TO ROUTINE 
4946 
ak 3: THIS 1S USE TO HANDLE THE ‘'GETPRI'’ MACRO 
4949 027604 011646 $TRAP2: MOV (SP) ,-(SP) >;MOVE THE PC DOWN 
4950 027606 016666 000004 000002 MCV 4(SP),2(SP) > ;MOVE THE PSW DOWN 
at 027614 000002 RTI RESTORE THE PSw 
et .SBTTL TRAP TABLE 
4 
4955 3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
4956 :*BY THE ‘‘TRAP’’ INSTRUCTION. 
4957 
4958 ; ROUTINE 
4959 i  tetnonpetonis 
4960 027616 027604 $TRPAD: .WORD $TRAP2 
4961 027620 025136 $TYPE ;;CALL=TYPE TRAP#+1(104401) TTY TYPEOUT ROUTINE 
4962 027622 027360 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
4963 027624 027334 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
4964 027626 027374 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
—— 027630 027110 S$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
49h6 
or 027632 025470 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
496 
4969 027634 025420 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwR 
4970 027636 025742 SROCHR ;;CALL=ROCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
4971 027640 026062 SRDOLIN ;;CALL=RDLIN TRAP4+11(104411) TTY TYPEIN STRING ROUTINE 
on 027642 012152 GISDEV ;;CALL=GTDEVM TRAP#12(104412) *C WILL OPEN UP SDEVM 
4 
pn! 027644 000040 -BLKW 32. STACK FOR “‘EIS-FIS‘' TESTS 
4 
4976 027744 LSTAD: 
4977 sMAX ADDR FOR 8K WITH APT = 37400 
4978 :MAX ADDR FOR 8K NO APT BUT TO SAVE ABS LOADER = 37500 


4979 003334 - END START 


kK 9 
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176500 1171 1212 


43778 
* 1764" 1792* 18274 4377 


Noe oes tO 


NNN NEN ONNWOO 


St te a a ed et —_ —s 


2914 
1186 
1759 


. 


nonnnnon 
So 
So 
So 
So 
So 
i) 


> 
oo 
iJ 
ga 
— 
VlFwWwn—O 
So 
So 
So 
Ss 
So 
tt et et PL) ss 


ee ee ee ee ee ee ee ee 


NNN NN NNN NSN NSS ONS NSN 


1213 


> 
So 
J 
x 
co 
rennin 
S 
So 
So 
So 
So 
So 
a 


> 

=z 

> 

So 

@ 

iv 

" 

oS 
S So 

oS 
oS So 

oS 

So 
ee ee ee ee ed 
tt et es es os at 


2173 2935 
1660* 1690" 2174" 21838 2207* 2208*  2936*  2937« 


z= 


2158 21664 


O00 0] N@OYNNVDNOOCO COCO ONWOoO~~ 
COUIN S&S FWO ONO ON HS NF KH WOPAWOFWN SS 


> 

z 

—— 

nm 

4 

oS 

So 

o 

—_ 

o 

So 
— ee oes eee QQ = 
ANNNONN™N 


—— oe OQ 
& MON Ny — a OD NNN SS PIP es ss es es es 


> 
z 
r] 
wo 
hut 
— 
~ 
o 
o 
_ 
Nm 
co 
o 
Pa 
= 
et ey me a RD NE nw at tt st st et ts es ss es es es 


Cmte es es os os ot 


_— 
™N 
2 


AMXC = 176614 8650 2184* 3416" 34328 


> 
wv 
> 
“" 
nw 
nou 
So 
So 
oS 
So 
o 
So 


APRIOR= 000000 


CVKDAC 


CVKDAC.P11 
APTCSU= 000040 
APTENV= 000001 
APTS1Z= 000200 
APTSPO= 00010 
ASHC1 004732 
ASHC2 005002 
ASHC3) §=©005054 
ASHCS = 005074 
ASH] 004602 
ASH2 004642 
ASH3 004664 
ASHS 004704 
ASWREG= 000000 
ATESTN= 000000 
AUNIT = 000000 
AUSWR = 000000 
AVECT1= 00030 
AVECT2= 009000 
BITHLD 012716 
BITO = 000001 
81100 = 000001 
B11T01 = 000002 
B1T02 = 600004 
B1T03 = 00001 
B1T04 = 000020 
B1T05 = 000040 
B1106 = 000100 
B1107 = 000200 
B1108 = 000400 
B1T09 = 001000 
B1T1 = 000002 
B1T10 = 002090 
BIT11 = 004000 
B1T12 = 010000 
B1T13 = 020000 
B1T14 = 040000 
B1T15 = 100000 
BIT2 = 000004 
BiT3 = 000010 
B11™4 = 000020 
BITS = 000040 
B116 = 000100 
BIT7 = 000200 
B118 = 000400 
BIT9 = 001000 
BOTMON 004510 
BPTVEC= 000014 
BREAK = 000001 
B110 = 001000 
B1200 = 003400 
B134 = 001400 
B150 = 002000 
B1800 = 004000 
B19200= 007400 
B2000 = 004400 


tet ae as a ss 
om — —$ @WOwwo 
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CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0115 
46654 4698 

46664 

2032 

1185 

1210 

31720 

1072 2213 


970 988 1005 1029 1804 2037 2060 2094 2157 2192 2210 
2303 3791 3805 3824 4152 4166 4186 


967 985 1003 1028 1047 2069 3912 4091 


998 1070 22 

9 1036 1069 2120 2169 2928 

1035 1050 1051 1068 

995 1034 1067 

975 994 1033 1049 1835 2893 

974 993 1032 1048 1066 2047 

1031 2319 2419 2457 2518 2568 2592 2637 2703 2740 
shes te 2438 2465 2543 2573 2666 
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CVKDAC.P11 16-FEB-79 11:12 CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0116 
B2400 = 005000 9208 2215 2217 2249 2251 2285 2285 
B300 = 002400 9158 

B3600 = 005400 9218 

B4800 = 006000 9220 

B50 = 000000 9104 

B600 = 003000 9164 

87200 = 006400 9238 

B75 == 000400 9114 

B9600 = 007000 9248 2074 2171 2173 2935 

CDET = 010000 9554 988" 

CHARS = 000000 936" 

CHAR6 = 000004 378 

CHAR7 = 000010 938" 

CHARS = 000014 939" 2074 2171 2173 2215 2217 2249 2251 2283 2285 2935 
CHRS = 000000 10164 

CHR6 = 002000 1017# 

CHR? = 004000 10184 

CHRB = 006000 10194 2123 

CKSWR = 104407 2988 4682 4708 49698 

CKOBAD 013010 2531 32198 

CKIBAD 013122 2556 32678 


CLK = 177546 584 = =61684* 2052« 
CLKTST 605446 20478 
CLKVEC= 000100 8354 1575" 1576" 2049* 2050+ 
CLOCK 020300 2062 2910 43778 
CLOPT 020136 2881 4377" 
CLPRES 012014 2201 2877* 2880* 29468 
CLRBAD 012720 1698 31790 
CLT 020156 2237 2915 43778 
CLT2 020167 2271 2916 43778 
CLT3 020200 2305 2917 43778 
CLITST 006320 2167 2190 2193 2201# 
CL2TST 006510 2211 2233 2236 22448 
CL35TST 006642 2245 2267 2270 22784 
COMCHR 015734 2146" 2151 2181* 2187 3417 3421 3425 3427* 3430" 34358 3443 3444 3467 
3471 3473* 3476" 4377 
COMHiD 013736 2135* 2136 2182" 3420" 3421 34356# 3464* 3465 3467 4377 
COMPAT 021403 2807 43778 “ 
COMP1 003272 1556# = 1562" 1566" 1570* 1578* 1648 1700 2473 2805 2809* 3908 4087 
COMP2 003274 1557# = 1565" = 1571" 1579* 1650 1702 2425 2444 2578 2810* 3910 4089 
CONSOL= 010000 9004 
COPDUN 021311 4282 4377# 
COPFLG 003270 1555@ 1569" 1580* 1645 1708 4210+ 
COPMSG 021210 4211 4377" 
COPY 017410 1710 42104 4284 
CR = 000015 725# = 2079 3310 3323 4447 4457 
CRC = 000010 10694 3658 4032 
CRLF = 000200 726# 1644 4377 4418 4457 
CTHLD 012434 3065* 306 30834 
TREG 012524 3093* 3097" 3108 3121" 3125* 
CTREG! 012526 3092* 3100" 3109# 3120* 5128+ 
C™S = 020000 954a 9874 
C11 = 000000 901# 2215 2217 
(12 = 050000 902" 2249 2251 
(13 = 060000 903# 2283 2285 
DATCHK 020102 4266 4357m 
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CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0117 

dD = 000040 10674 3681 

DDISP = 177570 7328 = = 1154 1610 

DEVA 021500 2995 43778 

OF 025110 1233 1236 1239 1242 1245 1248 1251 1254 1257 1260 1263 1266 1269 
1308 1311 1314 1317 1320 1323 1326 1329 1332 1335 1338 1341 1344 
1347 1350 1353 1556 1362 1365 1368 1371 1374 1377 1380 1383 1410 
1413 1416 1419 1425 1428 1431 1434 1467 1470 1473 1476 1479 1482 
1485 1488 1491 1494 1502 1505 43778 

DF 025116 1272 1275 1278 1281 1290 1293 1296 1299 1386 1389 1392 1395 1398 
1401 1404 1407 1449 1458 43778 

DF2 025126 1284 1287 1302 1305 1359 1452 1461 43778 

DH1 = (024170 1248 1308 1314 1317 1320 1323 1326 1335 1338 1341 1502 1505 43778 

DH2 024207 1233 1236 1242 43778 

DHS 024233 1239 1245 43778 

DH4 024275 1251 1311 43778 

DHS 024326 1254 1257 1260 1263 1266 1416 1419 43778 

DH6 024363 1269 1329 1332 1344 1347 1350 1353 1356 1362 1365 1368 1371 1374 
1377 1380 1383 1410 1413 1425 1428 1431 1434 1467 1470 1473 1476 
1479 1482 1485 1488 1491 1494 43778 

DH7 024430 1272 1275 1278 1281 1290 1293 1296 1299 1386 1389 = #1392 1395 1398 
1401 1404 1407 1449 1458 43778 

DH8 024517 1284 1287 1302 1305 1359 1452 1461 43778 

DISPLA 001142 1154# 1610* 1618*  4685* 

DISPRE 000174 1081# 1618 

Divo 005172 1967 19748 

DNA = 100000 10288 

DNAIE = 000040 1034a 

DONE = 000200 9584 993# 10484 2131 2326 23354 2355. 2366 4328 4347 

DROP 020663 2906 43778 

DRvVO 020266 2911 3793 3807 3826 4377# 

DRvV1 020273 2912 4154 4168 4188 43778 

DSC == 100000 985a 

DSI = 100000 952e 

DSIE = 000040 9604 9954 

DSRDY = 001000 9578 9918 

DSWR = 177570 731# = =1153 1609 

DIR = 000002 9634 999# 1659 1660 1690 2124 2174 2207 2208 2936 2937 

DT1 024606 1248 1308 1314 1317 1320 1323 1326 1335 1338 1341 1502 1505 43778 

D110 024736 1272 1275 1278 1281 1386 1389 1392 1395 1449 4377" 

D111 024760 1284 1287 1359 1452 43778 

D112 025002 1290 1293 1296 1299 1398 1401 1404 1407 1458 43778 

D113 025024 1302 1305 1461 43778 

D114 025046 1329 1332 1344 1347 1350 1353 1368 1374 1413 1425 1428 1431 1434 
1467 1470 1473 1476 1479 1482 1485 1488 1491 1494 43778 

D115 025064 1416 43778 

D116 025076 1419 4377# 

b12 024614 1233 1236 1242 4377s 

D13 024624 1239 1245 43778 

D14 024640 1251 1311 43778 

DIS 024650 1254 4377s 

D16 024662 1257 4377m 

D17 024674 1260 43778 

D18 024706 1263 1266 4377a 

D19 024720 1269 1356 1362 1365 1371 1377 1380 1383 1410 43778 

DUN 021011 1807 2040 2160 3797 3809 3828 4158 4170 4190 43778 

DXTST 005260 1543@ 2317" «2606 =«2505* §=—2595* = 2640" = 2706" = 274Ge = 53553 3679 3741 3765 3836 
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CVKDAC.P11 16-FEB-79 11:12 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0118 
3838 4197 4377 

DXTSTO 006774 2203 2279 2301 2304 23178 

DXTST1 007246 1706 2322 2383 24048 

DXTST2 007702 2478 2488 2505¢ 

DXTSTS 010252 2579 25928 

DXTST4 010426 2595 2606 26378 

DXTSTS 010700 2638 2667 2675 27034 

DXTST6 011016 2704 2717 2726 27408 

DX1 = =_: 000020 10504 2451 2562 2671 2687 3863 3893 3915 3931 3951 3986 3999 4020 
4029 4068 4172 4191 4239 4252 

DOBAD 002764 15234 3179 3181 3197 3204 3226 3227 

DOBUF 002564 15224 2358 2371 2381 3698 3719 4236 4358 

DOCDAT 015140 3699 37148 

DOCERR 002554 15184 9 =2411* = =2511* 8 2597* 2617" 2657* 2708* 3739 3754 3760* 3764* 4377 

DOCMER 002552 1517# = =3605* 3714* 37242 3732 3781* 3819 

DOCNT 002542 1513#@ 2512" 2570 3821* 3822 

DOCRC 002562 15214 3660*  3664* 3734 3749 3761* 

DODISP 014230 2427* = §=24308 =2534e 8 =2599% =—2621* = 2641" = 2659* = 2710* )=— 2719% §=— 2749 = 3512 3513# 3533« 


3552* 3576* 3611* 3625* 3645* 3654* 3699  3849*  3858*  3870*  3878* 


DODUN 016002 3769 3840 3849 3858 3870 3878 3888s 

DOEBUF 015102 2621 3685 36974 

DOERR 002544 1514 = 2610* 2510* 2596" 2616* 2656* 2707" 3570 3583 3593* 3604* 3608" 3640 
3642* 3668 3678*  3780*  3818* 4377 

DOEXP 002556 1519# 3722" 4377 

DOFBUF 014246 2430 2710 35294 3601 3611 

DOINIT 015666 2599 38478 

DOINV. 015764 2749 38784 

DONEXT 015644 3654 3666 3762 3836" 

DONXT1 015364 37804 3837 

DONXT2 015560 38184 3839 

DOPAT 002540 1512 2409" 2459 3810+ 

DORCHK 014656 3625 36384 

DOREC 002560 1520# 3723" 4377 

DOREST 015712 2641 3858" 

DORSEC 014622 2427 2534 2659 3606 36208 3644 3645 3767 3789 

DOSEC 002550 1516@ = =2412* =2529% = 2619 = 2654" = 2746" = 2772 = 332.24 3532 3550 3594 3596" 3598 
3600*  3603* 3622 3718 3782 3784* 3786 3788* 3802* 4377 

DOSTAT 015746 2719 38704 

DOTMO §= 012530 2461 3091* 35102* 31108 , 

DOTRK 002546 1515# 2406" 2482* 2489* 2524* 2618* 26538 2745 2771" 3222 3530 3548 3620 
3716 3795 3799 3801* 4377 

DOWCHK 014366 3552 35684 

DOWSEC 014312 3533 5548a 

DIBAD 003234 15414 3184 3186 3245 3252 3274 3275 

DIBUF 003034 15404 4066 4093 4264 4359 

DICDAT 016702 4067 40814 

DICERR 003024 1536# = =2416* 2515* 2684* 4111 4120 4126* 4130* 4377 

DICMER 003022 1535#@ 8 3979* 4081* 4098* 4105 4142* 4181+ 

DICNT 003012 15318 2516" 2575 4183* 4184 

DICRC 003032 1539# 84034" 4038* 4107 4116 4127+ 

DIDISP 014236 2446* 2449% 2559 2669* 2686+ 3515 3516# 3862" 3914* 3930" 3950+ 3985" 3998 
4019* 4028*  4067* 

DIDUN 016016 3862 3892s 

DIEBUF 016644 4053 4065# 

DIERR 003014 1532# 982415" 2514" 2683* 3944 3957 3967* 3978" 3982* 4014 4016" 4042 4052e 
4141* 4180" 4377 


CVKDAC 
CVKDAC.P11 
DIEXP 003026 
DIFBUF 016032 
DIINT 014232 
DINEXT 017376 
DINXT1 017116 
DINXT2 017312 
DIPAT 003010 
DIRCHK 016442 
DIREC 03030 
DIREST 015750 
DIRSEC 016406 
DISEC 003020 
DITMO § 012620 
DITRK 003016 
DIWCHK 016152 
DIWSEC 016116 
EBHLD 007240 
EBUF = 000003 
EBUFF 920040 
EIPRES 012012 
EISCNT 605424 
EISDON 005426 
EISFIS 004552 
EISTXT 020307 
EMTVEC= 000030 
EM 021511 
EM10 022024 
EM11 022051 
EM15 022067 
EM14 022120 
EM15 022151 
EM16 022202 
EM17 022233 
EM19 022251 
EM2 021530 
EM20 022302 
EM21 022333 
EM22 022364 
EM23 022415 
EM24 022426 
EM25 022443 
EM26 022460 
EM27 022475 
EM28 022512 
EM29 022531 
EMS 021552 
EM30 022551 
EM31 22562 
EM32 022573 
EM33 022636 
EM34 022677 
EM35 022736 
EM36 023003 
EM37 023052 
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mo 
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4377 
3975 


4128 
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3985 
41978 


4171+ 


3980 3993# 4018 4019 4131 4150 
3970+ 


$3 h00 4149" 4163* 4377 

2490* 2549" 2681* 3270 3904 3926 
23874 4377 

4068 4341 

29458 

43778 

43778 

1350 1353 1368 1374 1476 1482 
1488 4377# 


SEQ 0119 


3972 3974* 3977" 3995 


3993 4083 4156 4160 


43778 
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EM38 023076 


EM7 021715 
EMSs 021743 
EM9 021774 


FIN 003262 
FIS 005236 


eraeree 


GIDEVM= 104412 


HLD42 = =—6004550 


BEEP NM SAN AAw 
We | VIO OO OOOO 


SOAS EE 
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1473 
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1491 


27858 
4243* 


4964 


2975 


1494 


4244 
1726* 
3160 


2601* 
3888+ 


4965 


29808 


43778 


4250+ 


1801* 


2625* 
3892+ 


4967 
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4256* 


1802* 


2642" 
4159* 


4969 


4257 


2821* 


2658+ 
4182* 


4979 


42888 


2822* 2884" 2885* 


2670* 2685" 2712¢ 


4971 4972 


SEQ 0120 


e72ie 


CVKDAC 
CVKDAC.P11 
HT = 000011 
1D = 000001 
1E = 000100 
INITAL= 000011 
INTFLG 013204 
INTSRV 013176 
INVADR= 000002 
INVCT 011174 
1OTVEC= 000020 
LDATA = 000004 
LDOBAD 012752 
LDIBAD 013064 
LF = 000012 
LINCT 013334 
LOLIM § 012126 
LONUM = 012134 
LOOP 604072 
LSTAD 027744 
LSTCHR 014026 
MAINT = 000002 
MAXMEM 012022 
MAXSEC 017716 
MAXSK 003266 
MAXTRK 003264 
MCLK = 004000 
MEM 020327 
MEMHLD 004542 
MEMORY 020776 
MEMTST 004204 
MM = 010000 
MR = 000400 
MSG1 021034 
MSG2 021063 
MSG3 021117 
MSG4 021154 
MULO 005132 
MYTYPE 027044 
NOEIS 005446 
NOTPRE 020350 
LL 011334 
ODDPAR= 001000 
OK 20715 
OPAR = 000020 
ORERR = 040000 
PARAM = 177420 
PARERR= 010000 
PAT 094544 
PATT 020726 
PERR 027104 
PIRQ = 177772 


4457 
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43778 


2935 

2173* 
1774* 
47848 
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PIRQVE= 000249 824e 

PORT 020251 2099 43778 

PRB = 177516 8618 3309+ 

PRCHR 013332 2079* 3309 3310 3312 

PRINT 020240 2096 2918 2931 43778 
PRPORT 012020 2090 2097 2924* 29408 
PRPRES 012016 2071 2923" 2941" 29478 
PRS = 177514 : 8609 2081* 2092" 2925 

PRSRV 013206 2075 3303# 

PRT = 020000 9044 2074 

PRTST 005540 2048 2058 2061 20698 
PRVEC = 000200 833" 2075* 2076 

PRO = 000000 747# = =1688 

PRI == 000040 7484 

PR2 = 000100 7498 

PRS == 000140 750# 

PRG = 000200 7514# = 1587 

PRS = 000240 752a 

PR6 = 000300 7538 

PR7 = = 000340 754a 

PS = 177776 7278 7 

PSERR 027106 1696* 2799 3586*  3671* 
PSW == 177776 7284 

PWRVEC= 000024 8194 

RACT = 004000 989" 

RAND 012024 2523 2528 2548 2553 

RANDOM 020741 3827 4189 43778 

ROCHR = 104410 4578 49708 

ROLIN = 104411 49718 

RDWR 020000 4222 4238 4251 43218 
RDY = 000200 9748 10324 10664 

REGHLD 012714 3153* 1 31714 

RESTOR= 000017 10624 3577 3612 3646 

RESVEC= 000010 8144 2823* 2824* 2886+ 
RING = 040000 9534 986" 

RNF = 000020 10684 3573 3587 3609 

RSEC = 000007 10584 3626 3999 4223 

RSTAT = 000013 10604 3871 

RTS = 000004 962a 9984 1659 1660 

RUN 020704 2063 » 2101 2195 2238 

RXCS = 177170 8748 2325 2330* 2333 


RXDB = 177172 875# 2346* 2360 3535* 
RXES = 177172 876# 2612 2758 3497 
RXSA = 177174 ig 2747" 2773* 3200 
4 

RXSRV 014130 2422 2441 3494M 

RXVEC = 000264 8435 24228 423* 24418 
SCOM 020211 2159 2913 43778 

SECCNT 017720 4268* 4270 42874 4312+ 
SECT 017726 4218* 4273 4275" 42798 
SEND = 000020 10354 2126 454 


F 
16-FEB-79 


3314 
29488 
2938 


3757* 


29564 


3316+ 


3303 


3960* 


2974 


4325 


3319* 


4045* 


2976 
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33218 


4123+ 


33235" 33288 


4785 
3986 = 4020 
3961 3983 
2208 2936 

2365 =. 2432" 


4024 


SEQ 0122 


| 
4046 
> a 
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SETVEC 012326 2141 2176 2219 2253 2287 3045# 

SIZE 011340 1668 28218 

SMPAR = 176622 8704 21238 

SMRB = 176622 8694 2135 3464 

SMRC = 176620 8684 2124" 2130 2147" 34778 

SMRSRV 014030 2143 34648 

SMRVEC= 000340 8408 2142 

SMTST 005704 2070 2072 2088 2095 2100 21078 

SMXB = 176626 8728 2127" = 5443 

SMXC = 176624 B718  2117* = 2118* = 2122* = 2126" = 2 148% = 2156* = 35442" = 34508 = 354 85481 

SMXSRV 013740 2144 3442a 

SMXVEC= 000344 8418 

SPRS 013336 3303* 3304 33304 4377 

SREC = 002000 956" 9904 

SRSYN = 000020 996# 2124 

SRXCS =. 014240 3496* 3505* 35198 4377 

SRXES 014242 3497* 3506" 35208 3573 3587 3609 3643 3650 3658 3672 3947 3961 3985 
4017 4024 4032 4046 4377 

SRXSA 014244 3498* 3507" 35214 4377 4771 

STACK = 001100 7184 1582 1599 

START 003334 1089 1092 15754 8 4979 

START1 003276 1097 1562a 

START2 603304 1099 15654 

START3 003316 1095 15694 

STKLMT= 177774 7298 

STSYN = 000400 992m 

SwWR 001140 1153@ 1597 1609* 1611 1617* 1624* 1636 1804 2037 2060 2094 2i57 2192 
rat 2269 2303 3791 3805 3824 4152 4166 4186 4467 4512* 4686 4693 

SWREG 000176 10824 1617 1636 4467 4480 

SwO == 000001 782e 

$wOO = 000001 772H 782 

sw0l = 000002 7714 781 

SwO2 = 000004 770# 780 

$wO3 = 000010 7698 779 

$w04 = 000020 7688 778 

SwOS = 000040 7674 777 

$WwO6 = 000100 7664 776 

$wO7 = 000200 765# 775 

$wO8 = 000400 7648 774 

swO9 = 001000 763k 773 

Swi == 000002 7814 

$Ww10 = 002000 762m 

SWw11 = 004000 7614 

SWwi2 = 010000 7604 

$W13 = 020000 759# 

S$W14 = 040000 758a 

Sw15 = 100000 757# 

SW2 = 000004 780# 

SWw3 = = 000010 779" 

SW4 = =_ 000020 7784 

SWw5 = =_- 000040 777# 

SW6 = = 000100 7768 

SW7 = = 000200 775# 

SWB == 000400 7748 

$W9 = =: 901000 7730 
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SxXMIT = 000010 961" 9978 
SYNC1 = 040000 1012# 
SYNC2 = 000000 1011" 
$1 003354 1563 15794 
$2 003360 1567 15808 
3 003364 1572 15824 
TBITVE= 000014 8158 
027100 1656* 2790 4776* 47820 
TIMDO 012436 2434 2539 2604 2626 2645 2662 2715 2724 2754 30918 
TIMD1 012532 2453 2564 2673 2689 31198 
TIMER 012352 2054 2084 2150 2186 2229 2263 2297 3064e 
TIMER 012622 1681 1693 3142a 
TIMER2 012634 2129 2324 2332 2351 2364 3153# 4326 4345 
TKVEC = 000060 822" 
TK1B = 176502 880" 2225 3340 
TK1S = 176500 8798 2226* 2868 
TKISRV 013356 2221 33408 
TKIVEC= 000300 8454 2220 
TK2B = 176512 8854 2259 3367 
TK2S = 176510 B84" 2260« 
TK2SRV 013456 2255 33678 
TK2VEC= 000310 B47# 2254 
TK3B = 176522 890" 2293 3393 
TK3S = 176520 8894 2294* 2872 
TK3SRV 013556 2289 33930 
TK3VEC= 000320 8494 2288 
TPVEC = 000064 8234 
TPIB = 176506 8824 3337 
TPIS = 176504 8814 2227" 3336% 3252+ 
TPISRV 013340 2222 33368 
TPIVEC= 000304 8464 
TP2B = 176516 8874 3364* 
TP2S = 176514 8864 2261* 3363" 3379« 
TP2SRV 013440 2256 33034 
TP2VEC= 000314 8484 
TP3B = 176526 8924 3390« 
TP3S = 176524 8914 22958 3389« 3405+ -—————— 
TP3SRV 013540 2290 3389" 
TP3VEC= 000324 8504 
TRACK 017724 4217* 4278 42894 4321 
TRAPVE= 000034 821k 1603" 1604+ 
TRK 020721 3794 4155 43778 
TRIVEC= 000014 8164 
TSERR 027102 1657* 2793 3585* 3670* 3756" $959" 4064 41228 47838 
TYPDS = 104405 2788 2791 2794 2797 2800 2845 3796 4157 4755 4965a 
TYPE = 104401 1630 1675 1806 1807 2039 2040 2062 2063 2096 2099 2101 2159 2160 
2194 2195 2237 2238 2271 2272 2305 2306 2786 2789 2792 2795 2798 
2801 2807 2846 2859 2860 2881 2882 2904 2906 2931 2932 2995 2998 
3014 3033 3793 3794 3797 3807 3808 3809 3826 3827 3828 4154 4155 
4158 4168 4169 4170 4188 4189 4190 4211 4282 442) 4478 4479 4482 
4493 4503 4514 4533 4582 4587 4590 4594 4688 4696 4719 4736 4738 
4741 4743 4758 4763 4844 4913 49618 
TYPOC = 104402 2997 4481 4727 4751 49624 
TYPON = 104404 49644 
TYPOS = 104403 49634 
TICHR 013434 2224" 2230 3337 3341 3345 3347" 3350" 3355@ 4377 
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TIHLD §=.013436 2225* 3340" 3341 3356# 4377 
T2CHR 013534 2258* 2264 3364 336 3372 3374¢ 3377" 33824 4377 
T2HLD 013536 2259* 3367" 3368 33838 864377 
T3CHR 013634 2292" 2298 3390 3394 3398 3400* 3403* 34088 4377 
T3HLD §=.013636 2293* 3393" 3394 34098 4377 
ULITE = 040000 906« 
USEL = 000020 10514 3509 
WARNIN 020365 1675 43778 
WODSEC= 000015 10614# 3555 
WSEC = 000005 10574 3557 3879 3931 4239 
SAPTHD 001000 1113 11194 
SASTAT= steerer YJ 4645 4660 
SATYC 026306 4616 46184 
SATY1 026262 46148 
$ATY3 026270 4406 46154 
$SATY4 026300 4617# 4701 
$AUTOB 001134 11504 1640" 4475 4610 
SBASE 001244 12124 
SBDADR 001122 11458 
SBDDAT 001126 11474 
$BELL 001160 11634 4688 4711 
SCHARC 025414 4423* 4433* 4440 4449" 44548 
SCKSWR 625420 44678 4969 
SCMTAG 001100 11334 1594 1595 1605 
$CM3 = 000000 11634 
SCNTLC 026220 4493 4582 46034 
SCNTLG 026232 4478 46054 
SCNTLU 026225 4503 46048 
SCPUOP 001216 11864 
SCRLF 001165 11654 3014 4422 4457 4514 4603 4696 4711 4719 4738 4743 4763 
SDBLK 027324 4810 4844 4852a 
$DEVCT 001200 1177#  =—-3074* = 33099" = 33127* = 33163" = 3325" «= 5351 «= 3378 «= 8404e = 31e «= 5G51*® «= 3455 = 547 Be 
SDEVM 001246 12134 81671 1673 1835 2047 2069 2107 2120 2166 2169 2205 2210 2213 
2244 2247 2278 2281 2319 2321 2419 2438 2457 2465 2518 2543 2568 
2573 2592 2637 2666 2703 2740 2895 2928 2996 3012e 
$OTBL 627314 4813 4848m , 
SENV 001210 11824 81589 1634 1664 1669 2111 2986 4401 4625 4647 4698 
SENVM =001211 11834 1622 4403 4408 4625 
SERFLG 001103 1136 4683" 4711 
SERMAX 001115 11424 
SERROR 026530 1601 46818 
SERRPC 001116 11434 4377 4690* 4691" 4692 4711 4725 
SERRTB 001250 12304 4733 
SERRTY 026670 47184 4775 
SERTTL 001112 11404 4689" 4711 
SETABL 001210 11814 
SETEND 001250 1125 12148 
SFATAL 001172 11744 = =4651* 
SFFLG 026526 4614" 4617* 645 4654* 46628 
$FILLC 001156 11614 4426 4457 
$FILLS 001155 11604 4457 
$GDADR 001120 11448 
$GDDAT 001124 11464 
$GTSWR 025470 44798 4967 
$HD = 000000 702 
$HIBTS 001000 1120@ 
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eeenee 
eeneee 
000106 
177777 
132000 


001212 
001174 
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46084 
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4637* 
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4698 


2787 
4711 


1631 4462 4610 
4676 4677 4678 


4556 
4497* 4517* 4548 


4682 
4686 


4554 


4708 
4693 


4710 
4705 


SEQ 0126 


4709 
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STRAP 027562 1603 4938" 

STRAP2 027604 49498 4960 

STRP = 000013 4953 49628 49638 49648 4965 49668 4967 49688 4969 4970# 49718 49728 49738 

STRPAD 027616 4943 49608 

STSTA 001004 11228 

STSTNM 001102 11354 4685 4711 

STTYIN 026210 4575 4576 4598 46028 

STYPBN= teeere Y 4966 

STYPDS 027110 47984 4965 

STYPE 025136 43954 4642 4953 4961 

STYPEC 025350 3017 4425 4432 4439 44448 4445 4519 

STYPEX 025416 4450 4452 4455a 

$TYPOC 027360 48834 4962 

STYPON 027374 4882 48854 4964 

STYPOS 027334 48784 4963 

SUNIT 001202 11788 

SUNITM 001010 1124¢ 

SUSWR 001214 11854 

$VECT1 001240 12104 

$VECT2 001242 12114 

SOFILL 027557 4879* 4883+ 4893 49288 

SGOCAT= seeeee YJ 4695 

. = 627744 1080# 10844 1088 1091# 1094# 1096# 1098 1103# 1109 1110@ 8 81112# 8 1114# 11328 
1167 1522M 1523 15408 15418 1598 2729 2776 28148 3077 3105 3131 3144 
3166 4220 4232 4248 4261 4364 4457 4460 46028 4603 4610#@ 466358 4711 


: = eeeeee Y 4615 4618 
.$x = 001000 1109# = 1114 


CVKDAC 
CVKDAC.P11 
COMMEN 8254 
ENDCOM 8254 
ERROR 7198 
1924 
2132 
2454 
2730 
3589 
3963 
4348 
ESCAPE 8254 
GETPRI 8254 
GETSWR 8254 
MULT 8254 
NEWTST 8254 
POP 8254 
PUSH 8254 
REPORT 6914 
SCOPE 7204 
SETPRI 8254 
SETTRA 49534 
SETUP 8254 
SKIP 8254 
SLASH 8254 
SPACE 8254 
STARS 8254 
1106 
1749 
1885 
2045 
2391 
2819 
3036 
3193 
3385 
3618 
3866 
4010 
4334 
4855 
SWRSU 8254 
TRATRP 49534 
TYPBIN 8254 
TYPDEC 8254 
TYPNAM 825# 
TYPNUM 8254 
TYPOCS 8254 
TYPOCT 8254 
TYPTXT 8254 
SSCMRE 11264 
SECMIM 11264 
SSESCA 825a 
SSNEWT 8254 
$$SET 4953a 
S$SETM 16214 
$$SKIP 8254 


PDT11-150 
16-FEB-79 1 


4962 


EXERCISER 
1:12 

1760 1765 
1936 1947 
2153 2189 
2565 2605 
2760 2765 
3652 3661 
4026 4035 
4658 4839 
4620 4641 
4963 4964 
831 852 
1115 1128 
1779 1810 
1907 1909 
2067 103 
2495 2503 
2828 2848 
3058 3062 
3217 3239 
3412 3414 
3636 3692 
3874 3876 
4063 4074 
4353 4355 
2790 2793 
4480 4725 
4963 4964 


L 10 
MACY11 30G6(1065) 16-FEB-79 11:13 PAGE 150 
CROSS REFERENCE TABLE -- MACRO NAMES 


4965 


4967 


2799 


4967 


4969 


2845 


4969 


CAWONDw 


4970 


3795 


4970 


Puwnr— 


497) 


4156 


497) 


4972 


4753 


4972 


SEQ 0128 









mn 10 .* 4 
CVKDAC PDI11=150 EXERCISER —-MACYIT 306(1063)_I6=FEB-79_ 11: 13, PAGE 151 
CVKDAC.P11 —- 16=FEB-79 11:12 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0129 


ERRORS DETECTED: 0 


Z:CVKDAC,2:CVKDAC.SEQ/CRF/SOL=CVKDAC P11 
RUN-TIME: 25 15 2 SECONDS 
RUN-TIME RATIO: 138/42=3.2 


- ABS. 027744 000 OvR RW REL GBL D 
CORE USED: 24K (47 PAGES) 


